Lachanzud
6 год назад
Дано натуральное число N. Напишите функцию (Pascal), определяющую количество нулей среди всех цифр числа N.Входные данныеЗадано единственное число NВыходные данныеНеобходимо вывести количество нулей среди всех цифр числа N.Примерывходные данные100выходные данные2
ОТВЕТЫ
Захар
Oct 24, 2020
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.
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.
592
Смежные вопросы:
