В паскале АВС составте программу которая будет считать нули в числе ! Именно в Паскале АБС
В паскале АВС составте программу которая будет считать нули в числе ! Именно в Паскале АБС
Гость
Ответ(ы) на вопрос:
ГостьVar A,n : Integer;
Begin
n:=0;
Readln(A);
While A>0 do
Begin
If A mod 10 = 0 then Inc(n);
A:=A div 10;
end;
Writeln('Нулей в числе: ',n);
end.
Не нашли ответ?
Похожие вопросы