Stepan
5 год назад
Напишите задачу в Pascal, на уровне 8-го класса ( с помощью циклического алгоритмам)
ОТВЕТЫ
Rosica
Oct 24, 2020
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.
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.
512
Смежные вопросы:
