Ответы
Ответ дал:
0
Var
S,S0,P:real;
N:integer;
Begin
Write('N = ');
ReadLn(N);
S:=1;
S0:=0;
P:=1;
For N:= 1 to N do
Begin
S0:=S0+2*N;
P:=P*2*N;
S:=S+S0/P
End;
WriteLn('S = ',S);
End.
S,S0,P:real;
N:integer;
Begin
Write('N = ');
ReadLn(N);
S:=1;
S0:=0;
P:=1;
For N:= 1 to N do
Begin
S0:=S0+2*N;
P:=P*2*N;
S:=S+S0/P
End;
WriteLn('S = ',S);
End.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад