Предмет: Информатика,
автор: Аноним
дано натуральное число N найти количество нулей в этом числе
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Математика,
автор: rus10055
Предмет: Алгебра,
автор: tkot472
Предмет: Литература,
автор: Аноним
Предмет: Геометрия,
автор: maximmaxandre
Предмет: Химия,
автор: 123etrt