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

[jager666]

Найти сумму элементов последовательности с точностью 0,001:
s=1+(2/(2*3))-4/(3*9)+6/(5*27)-8/(8*81)
ответ должен получиться S = 1.220
у меня получается 1.187
вот как я решал, надо решить при помощи while

program qq;
var b,n,z,x,c:integer;
S,a:real;
begin
   S:=0; z:=1;
   b:=2; n:=2; x:=3; a:=1;
   while abs(a)>0.001 do begin
      S:=S+a;
      a:=z*b/(n*x);
      c:=c*(n-1)+c*(n-2);
      x:=x*3;
      z:=-z;
      b:=b+2;
   end;
   writeln('S=',S:10:3);
end.

[kventin_zhuk]

У вас всё правильно. А 0.037 не такая уж и большая погрешность. Понижая точность - ответ получается менее точный, но более приближенный к вашему ответу.