Question

написать программу в паскале

Answer 1

var

 sum:real;

 i,n:integer;

 

function f(x:integer):integer;

 var t:integer;

 begin

   n:=1;

   for t:=1 to x do

     n:=n*t;

     f:=n;

 end;

begin

 write('Введите n: ');  readln(n);

 sum:=0;

 for i:=0 to n do

   begin

     sum:=sum + 1/f(2*i);

   end;

 writeln('Сумма: ',sum);

end.