Для питона
дано натуральное число n. напишите функцию, определяющую количество нулей среди всех цифр числа n. входные данные задано единственное число n выходные данные необходимо вывести количество нулей среди всех цифр числа n. примеры входные данные 100 выходные данные 2 а
Объяснение:
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.