Question

Вычислить 1*2*3*…(n-1)*n ( n вводится с клавиатуры) Нужно программу написать

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 1.To(ReadInteger).Aggregate(BigInteger(1),(a,b)->a*b).Print

end.

Пример

217

2174434113582705391286180135953604532547074113841280120966134941338127751629996882750252826548685075220319214067349484135380654467787270451742678423326570265620157366737288992163349171048688798463267664859364875790185551813894632412980205208366671935782165194373264746274299962531422140746241331327245578338344158437780432087037897823778356347516601795918870609920000000000000000000000000000000000000000000000000000

Answer 2

#Python
def f(n): return 1 if n==1 else n*f(n-1)
print(f(int(input())))