дано натуральное число N найти количество нулей в этом числе

program zz1;

var n, k, b:integer;

begin

read (n); / /вводим заданное n

while n0 do / /повторяем цикл пока исходное число не станет 0

begin

b:=n mod 10; / /получаем последнюю цифру

if b=0 then k:=k+1; / /если она 0, то считаем ее

n:=n div 10; / /выбрасываем эту цифру из числа

end;

write (k); / / выводим ответ на экран

end.