Question

1+2/2!+3/4!+4/6!+5/8!…Вычислить сумму ряда. Вычисления заканчивать при достижении заданной степени точности Е

Answer 1

Программа на паскале:
const e=0.0001;
var a,s,f:real; n:integer;
begin
a:=1;s:=1;n:=0;f:=1;
while abs(a)>e do
 begin
 n:=n+1;
 f:=f*(2*n-1)*(2*n);
 a:=(n+1)/f;
 s:=s+a
 end;
writeln('s=',s:7:5);
end.