Помогите!!! 24 БАЛЛА!!! Если бы имел больше, то больше бы поставил за это решение!!!
Надо сменить в языке Паскаль с While на Repeat !!!

Program P1;
Var a,n:integer;
Begin
Write ('a='); readln(a);
While a<>0 do begin
n:=n+1; a:=a div 10;
End;
Writeln('n=',n); readln
end.

Он сейчас в While, надо сменить этого в Repeat. Помогите ребята!!! Заранее благодарен!!!

1

Ответы и объяснения

  • Sky09
  • профессор
2013-09-22T17:25:55+04:00
Program P1;
Var a,n:integer;
Begin
Write ('a='); readln(a);
repeat
n:=n+1; a:=a div 10;
until a=0;
Writeln('n=',n); readln
end.