//PascalABC.NET v3.3 1633
begin
var num:=ReadInteger('Введите число: ');
var sum:=0;
for var i:=1 to IntToStr(num).Length do
if IntToStr(num)[i] = '0' then sum += 1;
writeln('Количество нулей: '+sum);
end.
Для начала инициализация массива, ищем элементы типа "UINT" складываем и умножаем на два, затем делим всё на 2 если числа дробные, то выкидывем, дальше вывод массива.
var m,k:integer;
n:real;
begin
writeln('Введите n и m через пробел:');
read(n,m);
k:=0;
writeln('Шаг ',k,', n=',n,', m=',m);
while m >= 6 do begin
m:=m-2;
n:=n*2;
k:=k+1;
writeln('Шаг ',k,', n=',n,', m=',m);
end;
writeln('n=',n,', m=',m);
end.
Результат:
Введите n и m через пробел:
1 10
Шаг 0, n=1, m=10
Шаг 1, n=2, m=8
Шаг 2, n=4, m=6
Шаг 3, n=8, m=4
n=8, m=4
1)
Program kpa6ya;var x,y,N:integer;BEGINwriteln('x=');readln(x);writeln('y=');readln(y);writeln('N=');readln(N);if (N<1) and (N<2*108) then begin writeln('BBeguTe oT 1 go 2*108 4ucJlo N, a He ',N); readln(N); end;writeln(N/(x+y),' - BpeM9');END.