var
N:integer;
i:integer;
sum:integer;
result:integer;
begin
writeln('Введите значение N:');
readLn(N);
sum := 0; result := 1;
for i := 1 to N do
begin
sum := sum + i;
result := sum * result;
end;
writeln('Конечное значение = ', result);
end.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=(3,ReadInteger('n ='));
SeqGen(n-1,m,t->begin Result:=t+m; m+=1 end)
.Aggregate(BigInteger(1),(p,q)->p*q).Println
end.
---------------------------
n = 5
2700
--------------------------
n = 92
2905717351708908985405643744987697767130796956644732769142761496541317116624931720391311988753812039943077115478561297954388733569194661753822436538090873756174074892748228397527408937781819534979620536526957830995968000000000000000000000000000000000000000000
