Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей
Помогите пожалуйста