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

Ответ: S=1.220

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

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 правильнее было назначить константой