Переделать программу под цикл с предусловием

@Adreno200 · Регистрация: 17.01.2014

Здравствуйте,форумчане!Нужна помощь.Эту задачу надо подработать под цикл вайл:

Pascal

Var i,n: integer;
s: real;
Begin
Writeln('Число слагаемых - ');
readln(n);
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
End.

,
помогите пожайлуста!

@Puporev · 07.02.2014, 19:54

Pascal

Var i,n: integer;
s: real;
Begin
Writeln('Число слагаемых - ');
readln(n);
i:=1;
while i<=n do
 begin
  s:=s+1/i;
  i:=i+1
 end;
writeln('s = ',s);
End.

Опции темы