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