program CountZeros;
vanumber, count, digit: integer;
begicount := 0;
writeln('Enter a number: ')readln(number);
while number <> 0 dbegidigit := number mod 10if digit = 0 thecount := count + 1number := number div 10end;
writeln('Number of zeros in the given number: ', count)end.
program CountZeros;
va
number, count, digit: integer;
begi
count := 0;
writeln('Enter a number: ')
readln(number);
while number <> 0 d
begi
digit := number mod 10
if digit = 0 the
count := count + 1
number := number div 10
end;
writeln('Number of zeros in the given number: ', count)
end.