Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Найдите сумму элементов последовательности с точностью 0,001.
1) S=1+2/(2*3)-4/(3*9) +6/(5*27)-8/(8*81)+10/(13*243)-...

Ответ: S=1.220

Нужно решение
само решение!!!
ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Answer 1

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var eps := 0.001;
var (s,tmp):= (1.0,0.0);
var i := 1; var k := 2.0;
var (a, fib):= (1,2);
while (abs(s-tmp) > eps)do
  begin
    tmp:= s;
    s+= k / (fib * 3**i );
    inc(i); k:= (abs(k) + 2)*k/abs(k); k *= -1;
   
    (a,fib) := (fib, a + fib);
  end;
 Writeln(S);
end.