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

Предыдущий
вопрос Следующий
вопрос

program SumOfSeries;

var
x: real;
n: integer;
sum, term: real;

function Factorial(n: integer): Integer;
var
i, fact: integer;
begin
fact := 1;

for i := 2 to n do
fact := fact * i;

Factorial := fact;
end;

begin
write('Enter a small number x: ');
readln(x);

sum := 0;
n := 0;

repeat
n := n + 1;
term := power(2, n) / Factorial(n - 1);

until abs(term) < x;

writeln('Sum of series terms with absolute value >= ', x, ' is ', sum:0:6);
end.