Сначала немного математики.
![\displaystyle a_n= \frac{n!}{(2n)!}=\frac{\prod_{i=1}^ni}{\prod_{i=1}^{2n}i}=\frac{\prod_{i=1}^ni}{\prod_{i=1}^{n}i\times\prod_{i=n+1}^{2n}i}=\frac{1}{\prod_{i=n+1}^{2n}i}; \quad n\in\mathbb N](https://tex.z-dn.net/?f=%5Cdisplaystyle+a_n%3D+%5Cfrac%7Bn%21%7D%7B%282n%29%21%7D%3D%5Cfrac%7B%5Cprod_%7Bi%3D1%7D%5Eni%7D%7B%5Cprod_%7Bi%3D1%7D%5E%7B2n%7Di%7D%3D%5Cfrac%7B%5Cprod_%7Bi%3D1%7D%5Eni%7D%7B%5Cprod_%7Bi%3D1%7D%5E%7Bn%7Di%5Ctimes%5Cprod_%7Bi%3Dn%2B1%7D%5E%7B2n%7Di%7D%3D%5Cfrac%7B1%7D%7B%5Cprod_%7Bi%3Dn%2B1%7D%5E%7B2n%7Di%7D%3B+%5Cquad+n%5Cin%5Cmathbb+N)
О модуле тут смысла нет говорить, поскольку все 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.
<em><u>Тестовые решения:</u></em>eps=0.07
s= 5.8333333333E-01
eps=0.000001
s= 5.9229647667E-01
eps=1e-8
s= 5.9229653448E-01
Для контроля результата можно отметить, что сумма первых 1000 членов ряда равна приблизительно
<em>5.922965365Е-01</em>
<span>в ворде формат/шрифт. и там все настройки и относятся к форматированию шрифта, начертание, размер, шрифт и т. д</span>
1.
<span>var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:=a to b do
if i mod 2=0 then k:=k+1;
writeln('k = ',k);
end<span>.
Пример:
5 20
k = 8
2.
var a,b,c:integer;
begin
readln(a,b);
c:=a;
a:=b;
b:=c;
writeln(a,' ',b);
end.
Пример:
5 20
20 5</span></span>
Если a больше или равно 1 и b больше или равно 2, то мы складываем эти числа и инициализируем n со значением 3. Потом выводим значение переменной n, следовательно, на экран будет выведено число 3.