Напишите задачу в Pascal, на уровне 8-го класса ( с помощью циклического алгоритмам)
Напишите задачу в Pascal, на уровне 8-го класса ( с помощью циклического алгоритмам)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы