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

const e=0.00001;var a,st,f,s:real; n:integer;beginn:=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