Технический форум - Я не пойму, как это сотворить?

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Я не пойму, как это сотворить? (http://www.tehnari.ru/f41/t32189/)

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

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

Вложение 6943

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

Цитата:

Сообщение от Sergei47 (Сообщение 283736)

Язык Паскаль..
Вложение 6943 я ваще даже не представляю как это сделать:confused:

Странная какая-то формула, ну да ладно - сотворить элементарно, например так:

Код:

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.

ой спасибо!!