Сколько нулей в двоичной записи числа 222 в 10 степени
//найти сумму N чисел натурального ряда кратных 7,
//начиная с k>0, N> 0,N и K вводятся с клавиатуры.
var k,k1,n,i,s : integer;
begin
s:=0;
i:=0;
writeln (‘Введите число K’);
readln (k);
k1:=k;
writeln (‘Введите число N’);
readln (n);
if (k>1) and (n>1) then
begin
while i<n do
begin
if (k mod 7)=0 then
begin
s:=s+k;
//writeln (i,’ ‘,k,’ ‘,s);// можно получить промежуточные результаты
k:=k+7;
i:=i+1
end
else k:=k+1;
end;
writeln (‘Сумма ‘,n,’ чисел кратных 7 начиная от числа ‘,k1,’ равна ‘,s);
end;
writeln (‘конец программы’);
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var j:biginteger:=2;
var i:BigInteger;
Writeln(j);
loop 9 do begin
i:=j; j*=i; Println(j)
end
end.
Сколько нулей в двоичной записи числа 222 в 10 степени
program n1; const n=10; var mas: array[1..n] of integer; i: integer; max,min,sum: integer; ar: real; begin for i: =1 to n dobegin mas[i]: = random (20)-10; write(mas[i],’ ‘); writeln end; max: =1; for i: =2 to n do if mas[i]> mas[max] then max: =i; writeln; writeln(‘максимаьное значение a[‘,max,’]= ‘,mas[max]); min: =1; for i: =2 to n do if mas[i]< mas[min] then min: =i; writeln; writeln(минимальное значение a[‘,min,’]= ‘,mas[min]); for i: =1 to n do sum: =sum+mas[i]; ar: =sum/n; writeln; writeln(‘среднее арифметическое = ‘,ar); end.