Var n,k : Integer;
Begin
Readln(n);
k:=0;
Repeat
If n mod 10 = 0 then k:=k+1;
n:=n div 10;
Until n<=0;
Writeln('В этом числе нулей: ',k);
end.
1) Исходные данные - это данные, которые вводятся пользователем, которые в процессе выполнения некоторых действий будут использованы для получение каких-либо результатов,
соответственно результаты - данные которые получаются в результате работы некоторых действий.
2) 18 - 12*5/3*2 = 18 - 40 = -22
(17-8)*8/(3*4) = 9*8/12 = 6
Если в конце должна стоять точка то всего 42 символа. Умножаем на 16, получаем 672 бита.
Var
A,i:integer;
S:integer;
Sr:real;
b:integer;
begin
writeln('Введите а:');
readln(A);
b:=200;
for i:=A to 200 do
begin
S:=B+i;
End;
Sr:=S/A;
writeln('Среднее значение:',sr);
<span>end.</span>