Дано натуральное число n. требуется определить количество нулей среди цифр данного числа.

231

239

Посмотреть ответы 2

Ответы на вопрос:

irakar03

Информатика

4,5(99 оценок)

Var n: longint; k: integer; begin write('введите натуральное число: '); read(n); k: =0; while n> 0 do begin if (n mod 10)=0 then inc(k); n: =n div 10 end; writeln('количество нулей в числе равно ',k) end. тестовое решение: введите натуральное число: 15035003 количество нулей в числе равно 3