Ответ(ы) на вопрос:
ГостьVar
N,i:integer;
S,C:real;
Begin
S:=0;
Write('N = ');Read(N);
For N:=1 to N do
Begin
C:=0;
For i:= 1 to N do
C:=C+Sin(i);
S:=S+1/C;
End;
Write('S = ',S);
End.
Не нашли ответ?
Похожие вопросы