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

Question

Информатика

Шилер

18 июля, 11:59

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

+5

Ответы (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.