Question

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

Answer 1

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