Question

Напишите программу pascal - 1*(1+2)*(1+2+3)*(1+2+3+4)*(1+2+3+...n)

Answer 1

begin

 var pow: BigInteger := 1;

 var sum := 1;

 var n := 0;

 while n < 2 do

 begin

   Print('n =');

   read(n)

 end;

 for var i := 2 to n do

 begin

   sum += i;

   pow *= sum

 end;

 

 Print(pow)

end.