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

Question

Информатика

Афлят

20 июля, 06:08

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

+3

Ответы (1)

Знаете ответ на вопрос?

Кенжебек · 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.