9 lines
202 B
ObjectPascal
9 lines
202 B
ObjectPascal
// Использование длинных целых. Вычисление 100!
|
|
|
|
begin
|
|
var n := 100;
|
|
var f: BigInteger := 1;
|
|
for var i:=2 to n do
|
|
f := f * i;
|
|
Print($'{n}! = {f}');
|
|
end. |