Дан числовой ряд и некоторое число eps. найти сумму тех членов ряда, модуль кото-рых больше или равен заданному eps. общий член ряда имеет вид: 6. an=n! /(2n)!

Сначала немного . о модуле тут смысла нет говорить, поскольку все an - суть положительные величины на интервале (0; 1). uses crt; function ai(n: integer): real; var   i: integer;   p: real; begin   p: =1;   for i: =n+1 to 2*n do p: =p*i;   ai: =1/p end; var   i: integer;   eps,s,an: real; begin   clrscr;   write('eps='); read(eps);   s: =0; i: =1;   repeat       an: =ai(i);       if an> =eps then begin s: =s+an; inc(i) end   until an< eps;   writeln('s=',s);   readkey end. тестовые решения: eps=0.07 s= 5.8333333333e-01 eps=0.000001 s= 5.9229647667e-01 eps=1e-8 s= 5.9229653448e-01 для контроля результата можно отметить, что сумма первых 1000 членов ряда равна приблизительно 5.922965365е-01