RosettaCodeData/Task/Evaluate-binomial-coefficients/PascalABC.NET/evaluate-binomial-coefficients.pas

10 lines
169 B
ObjectPascal
Raw Permalink Normal View History

2024-10-16 18:07:41 -07:00
##
function binomial(n, k: integer): biginteger;
begin
result := 1bi;
for var i := 1 to k do
2026-02-01 16:33:20 -08:00
result := result * (n - i + 1) div i;
2024-10-16 18:07:41 -07:00
end;
Println(binomial(5, 3))