Вычислите произведение, если N вводится с клавиатуры: N(1-N)(2-N)(3-N....((N-1)-N) .

// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger(n =);
  Writeln(П=,n*(Range(1-n,-1).Aggregate(BigInteger(1),(x,y)->x*y)))
end.

Пример
n = 46
П=-5502622159812088949850305428800254892961651752960000000000

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.