Напишите задачу в Pascal, ** уровне 8-го класса ( с помощью циклического алгоритмам)

Question

Напишите задачу в Pascal, на уровне 8-го класса ( с помощью циклического алгоритмам)

---

Answer 1

Var
N:integer;
S:real;
Begin
N:=0;
S:=0;
While S<=5 do<br>   Begin
   N:=N+1;
   S:=S+1/N;
   End;
WriteLn('N = ',N)
End.