Найдите сумму элементов последовательности с точностью 0,001. Нужно решение...

Question

Найдите сумму элементов последовательности с точностью 0,001.

Нужно решение

2)S=1+2/(2*3)-4/(3*9)+6/(5*27)-8/(8*81)+10/(13*243)-...

Ответ: 1.220

Помогите пожалуйста!! !

Само решение.

Answer 1

Var e,a,s:real; a1,f,f1,f2,a3,z:integer;
begin
e:=0.001;
s:=1; a:=1; z:=-1;
a1:=0; f1:=1; f2:=1; a3:=1;
while abs(a)>e do
 begin
 a1:=a1+2;
 f:=f1+f2; f1:=f2; f2:=f;
 a3:=a3*3;
 z:=-z;
 a:=z*a1/(f*a3);
 s:=s+a;
 end;
writeln('s = ',s:5:3);
end.

Результат:
s = 1.220