Question

Решить в pascal. Дано натуральное число n. Вычислить y=2*4*6...(2n)
Все решения в интернете неверные, пишет ошибку. Желательно сделать скрин программы.

Answer 1

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

begin
  Writeln(Range(2,2*ReadInteger('n='),2).Aggregate(BigInteger(1),(m,n)->m*n))
end.

Пример
n= 37
1891675820705153808241239602722999673157373132800000000