Дан числовой ряд и некоторое малое число x (например, x=0,00001). Найти сумму тех членов...

Question

Дан числовой ряд и некоторое малое число x (например, x=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному x. Общий член
ряда имеет вид:
An = (2^n)/((n-1)!)
Написать в ПАСКАЛЕ

Answer 1

Const e=0.00001;
var a,st,f,s:real; n:integer;
begin
n:=1;
st:=2; f:=1;
a:=2;
s:=2;
while abs(a)>=e do
 begin
 st:=2*st;
 a:=st/f;
 s:=s+a;
 n:=n+1; f:=f*n;
 end;
writeln('s=',s:7:5);
end.

Результат:
s=14.77811