Question

для питона
Дано натуральное число N. Напишите функцию, определяющую количество нулей среди всех цифр числа N. Входные данные Задано единственное число N Выходные данные Необходимо вывести количество нулей среди всех цифр числа N. Примеры входные данные 100 выходные данные 2 А****

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.