n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

InstallerSamples/NETLibraries/NET4.0/BigIntegerExample.pas

12 строк235 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ������������� ������� �����. ���������� 100!
{$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.