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

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

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

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

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

Примеры

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

100

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

2

Question

Информатика

Ювеналий

2 июля, 12:54

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

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

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

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

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

Примеры

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

100

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

2

+3

Ответы (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.