probier das mal:
Delphi-Quellcode:
function nuberk(n, k: integer): extended;
var
i: integer;
begin
result := 1;
for i := n downto 2 do
if (i in [k + 1..n]) then
result := result * i
else if(i in [2..n-k]) then
result := result / i;
end;
ich habs nicht probiert und kann auch gar nicht garantieren, dass der code funktioniert, es is eine (un)überlegte "optimierung" eines montag morgens
