Ответы
Ответ дал:
1
// 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
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n =');
Writeln('П=',n*(Range(1-n,-1).Aggregate(BigInteger(1),(x,y)->x*y)))
end.
Пример
n = 46
П=-5502622159812088949850305428800254892961651752960000000000
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
2 года назад
2 года назад
7 лет назад