Найдите сумму элементов последовательности с точностью 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
Помогите пожалуйста!! !
Само решение.
Зарание спасибо.У этого сайта нет рейтинга
Ответы
Ответ дал:
28
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.
КАК то так
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.
КАК то так
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад