Найдите сумму элементов последовательности с точностью 0,001. Нужно решение 2)S=1+2/(2*3)-4/(3*9)+6/(5*27)-8/(8*81)+10/(13*243)-... Ответ: 1.220 Помогите пожалуйста!! ! Само решение.
Найдите сумму элементов последовательности с точностью 0,001.
Нужно решение
2)S=1+2/(2*3)-4/(3*9)+6/(5*27)-8/(8*81)+10/(13*243)-...
Ответ: 1.220
Помогите пожалуйста!! !
Само решение.
Гость
Ответ(ы) на вопрос:
Гостьvar e,a,s:real; a1,f,f1,f2,a3,z:integer;
begin
e:=0.001;
s:=1; a:=1; z:=-1;
a1:=0; f1:=1; f2:=1; a3:=1;
while abs(a)>e do
begin
a1:=a1+2;
f:=f1+f2; f1:=f2; f2:=f;
a3:=a3*3;
z:=-z;
a:=z*a1/(f*a3);
s:=s+a;
end;
writeln('s = ',s:5:3);
end.
Результат:
s = 1.220
Не нашли ответ?
Похожие вопросы