Найдите сумму элементов последовательности с точностью 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
