Me olvide de poner mi codigo
Código Delphi
[-][FONT=verdana,geneva,lucida,'lucida grande',arial,helvetica,sans-serif] procedure TFormClasif1.btnCalcularFac1Click(Sender: TObject);
var
n, n2, factorial, factorial2, i, i2, acumulador, RS:integer;
begin
n:=strtoint(edit1.Text);
n2:=strtoint(edrs.Text);
acumulador := 1;
factorial := 1;
factorial2 := 1;
for i:=1 to n do
factorial := factorial*i;
ResN.Caption := inttostr(factorial);
for i2 :=1 to n2 do
factorial2 := factorial2*i2;
acumulador := acumulador*factorial2;
factR.Caption:=inttostr(acumulador);
RS := factorial / factorial2;
resultadoFinal.Caption:=inttostr(RS);
end;[/font]