Я не пойму, как это сотворить?

[Sergei47]

Я не пойму, как это сотворить?

Язык Паскаль..



я ваще даже не представляю как это сделать

 

[Vladimir_S]

Язык Паскаль..
Посмотреть вложение 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.

 

[Sergei47]

ой спасибо!!