Нет, это же надо, чтобы в такой маленький фрагментик:
Цитата:
For i:=1 to n do
z:=-z;
elem:=z*(((2*n+2)*(2*n+3))/(2*n+4));
S:=S+elem;
|
да столько ошибок! Тут надо так:
Код:
For i:=1 to n do
begin
z:=-z;
elem:=z*(((2*i+2)*(2*i+3))/(2*i+4));
S:=S+elem;
end;
В остальном вроде всё правильно.