факториал, сложный(для меня :) ) Опции

[kr3v3tkus]

Код

program lol;
var s:real;n,z,i:integer;  
begin  
writeln('vvesti n');  
readln(n);  
s:=0;  z:=1;  
for i:=1 to n do
  begin
  z:=z+(2i-1);
  s:=s+(-exp(i*ln(1))/z);
  end;  
writeln(s:2:2);
readln;
end.

косяк с факториалом ((( не знаю как сделать факториал для скобки

[GoodWind]

ф-ция вычисления факториала:

Код

function Factorial(a:integer):longint;
var i:integer;
     tmp:longint;
begin
tmp:=1;
for i:=1 to a do tmp:=tmp*i;
Factorial:=tmp;
end;

а факториал от скобки:

Код

factorial((2i-1));