Цитата:
Сообщение от Sergei47
Язык Паскаль..
Вложение 6943 я ваще даже не представляю как это сделать
|
Странная какая-то формула, ну да ладно - сотворить элементарно, например так:
Код:
VAR
S,a:REAL;
k,N:INTEGER;
BEGIN
Write('N= ');
ReadLn(N);
a:=1;
S:=1;
For k:=1 to N do
begin
a:=-a/k*(k+1)/k;
S:=S+a;
end;
WriteLn('S= ',S);
ReadLn;
END.