Дано натуральное число N найти количество нулей в этом числе
Дано натуральное число N найти количество нулей в этом числе
Гость
Ответ(ы) на вопрос:
Гостьvar
n, c : integer;
begin
c := 0;
read (n);
while (n > 0) do
begin
if (n mod 10 = 0) then c := c + 1;
n := n div 10;
end;
write (c);
end.
Не нашли ответ?
Похожие вопросы