Количество нулей

AvariItigail

25 апреля 2016

Определяющую количество нулей среди всех цифр числа N

Входные данные
Задано единственное число N

Выходные данные
Необходимо вывести количество нулей среди всех цифр числа N.

Исходный код на языке Pascal

var
  a, s: integer;

begin
  read(a);
  s := 0;
  while a > 0 do
  begin
    if (a mod 10 = 0) then
      s := s + 1;
    a := a div 10;
  end;
  writeln(s);
end.