Ответы
Ответ дал:
0
Var A,n : Integer;
Begin
n:=0;
Readln(A);
While A>0 do
Begin
If A mod 10 = 0 then Inc(n);
A:=A div 10;
end;
Writeln('Нулей в числе: ',n);
end.
Begin
n:=0;
Readln(A);
While A>0 do
Begin
If A mod 10 = 0 then Inc(n);
A:=A div 10;
end;
Writeln('Нулей в числе: ',n);
end.
Ответ дал:
0
СПС
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад