Найти частичную сумму ряда(Pascal)

[Marta_Marta]

Pascal

1/1*3+1/2*5+1/3*7+1/4*9+...

Найти частичную сумму ряда, ряд сводится к значению 2-2ln2=0,6137058

Please, Help!

var

s : real;

i, n : integer;

begin

s := 0;

read (n);

for i := 1 to n do s := 1/(n*(n+1)(n+2));

writeln (s);

end.

пишет: 1) Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла
2)Ожидалось имя процедуры или функции

[ViktorR]

1.

Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла

На этот вопрос к Гуглу. Например тут: http://pascalabc.net/wiki/index.php?...B0%D0%BC%D0%BC

2. Общая формула элемента ряда 1/(n*(2*n+1))
3. Тогда:

...
s:=0;
for var i := 1 to n do
   s := s + 1/(i*(2*i+1));
...

4. Внимательно отнеситесь к описанию переменных, поскольку, как я понимаю, переменная цикла описывается как в примере.

PS:Pascal ABC не знаю и рекомендую Free Pascal. Этот компилятор так же из серии открытого ПО.

[Marta_Marta]

Спасибо вам!