Задание:
Дано натуральное число 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.
Знаете другой ответ?
Дано натуральное число 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.
Знаете другой ответ?