Bargas
4 год назад
Cоставьте, пожалуйста, программу на паскале суммы ряда (далее вложение)
ОТВЕТЫ
Искра
Oct 24, 2020
Var
y:real;
n:integer;
Begin
y:=0;
For n:= 4 to 20 do
y:=y+1/(n+1);
WriteLn('y = ',y);
End.
y:real;
n:integer;
Begin
y:=0;
For n:= 4 to 20 do
y:=y+1/(n+1);
WriteLn('y = ',y);
End.
626
Смежные вопросы:
