Напишите программу в Pascal ABC которая будет считать нули в числе

Предыдущий
вопрос Следующий
вопрос

program CountZeros;
var
number, countZeros: integer;

begin
countZeros := 0;

write('Enter a number: ');
readln(number);

while number > 0 do
begin
if number mod 10 = 0 then
countZeros := countZeros + 1;

end;

writeln('Number of zeros in the entered number: ', countZeros);
end.