Найдите сумму элементов последовательности с точностью 0,001.1) S=1+2/(2*3)-4/(3*9)...

Question

Найдите сумму элементов последовательности с точностью 0,001.
1) S=1+2/(2*3)-4/(3*9) +6/(5*27)-8/(8*81)+10/(13*243)-...

Ответ: S=1.220

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

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

Ответ: 1.157

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

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

Зарание спасибо.У этого сайта нет рейтинга

Answer 1

2 задача
program qq;
var b, c, z, d: integer;  
  S, a: real;
begin  
S := 0; z := 1;
 b := 2; c := 3; d:= 3; a := 1; 
while abs(a) > 0.001 do begin 
 S := S + a;
 a := z * b / (c*d);  
  z := - z;    
  b := b + 2;     
c := c + 2; d:=d*3;  
end;
  writeln('S =', S:10:3);
 end.
КАК то так