Написать прогу ** паскале! Дан числовой ряд и некоторое малое число e (например,...

Question

Написать прогу на паскале!

Дан числовой ряд и некоторое малое число e (например, e=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному e. Общий член ряда имеет вид: An=n!/(2n)!

Answer 1

var fac1,fac2,sum,an,e:real;
i,j:integer;
begin
readln(e);
an:=0.5;
fac1:=1;
fac2:=1;
i:=1;
while an>=e do begin
inc(i);
sum:=an+sum;
for j:=1 to i do fac1:=j*fac1;
for j:=1 to 2*i do fac2:=j*fac2;
an:=fac1/fac2;
end;
writeln(sum);
end.