В паскале АВС составте программу которая будет считать нули в числе ! Именно в Паскале АБС

Question

В паскале АВС составте программу которая будет считать нули в числе ! Именно в Паскале АБС

Answer 1

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.

Comments

СПС