Дано натуральное число N. Напишите функцию (Pascal), определяющую количество нулей среди всех цифр числа N.

Входные данные

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

Выходные данные

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

Примеры

входные данные

100

выходные данные

2

Question

Информатика

Эдуардик

4 ноября, 20:22

Дано натуральное число N. Напишите функцию (Pascal), определяющую количество нулей среди всех цифр числа N.

Входные данные

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

Выходные данные

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

Примеры

входные данные

100

выходные данные

2

+2

Ответы (1)

Знаете ответ?

Аграфенка · Answer 1

Function ABC (A:integer) : integer;

Begin

result:=0;

While A>0 do

Begin

if A mod 10 = 0 then result:=result+1;

A:=A div 10;

End;

End;

Var A:integer;

Begin

Read (A) ;

WriteLn (ABC (A)) ;

End.