ПОМОГИТЕ ПОЖАЛУЙСТА!!! Найдите сумму элементов последовательности с точностью 0,001. 1)...

Question

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

Ответ: S=1.220

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

Comments

Вы видите мое решение?

---

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

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.

---

Comments

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

---

а можно так решить буду очень благодарин

---

Писать на старом паскале очень муторно, не хочу, простите. Указывайте в дальнейшем язык программирования, во избежания подобных ситуация

---

хорошо

---

eps правильнее было назначить константой