, код написать для 18 задания

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016

begin

var n:=ReadInteger('n=');

var s:=BigInteger(0);

var p:=Biginteger(1);

for var i:=1 to n do begin p*=i; s+=p end;

Print(s)

end.

Тестовые решения

n= 5

153

n= 10

4037913

n= 50

31035053229546199656252032972759319953190362094566672920420940313

Объяснение: Вроде бы так, точно не знаю