pascalabcnet/TestSuite/CompilationSamples/BigIntegerExample.pas

12 lines
270 B
ObjectPascal
Raw Normal View History

// Использование длинных целых. Вычисление 100!
2015-05-14 22:35:07 +03:00
{$reference 'System.Numerics.dll'}
uses System.Numerics;
var n := 100;
begin
var f := new BigInteger(1);
for var i:=2 to n do
f := f * i;
writelnFormat('{0}! = {1}',n,f);
end.