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