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

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