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

danyaсс danyaсс    2   27.09.2019 15:40    0

Ответы
ЛордМирак ЛордМирак  08.10.2020 22:55

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика