Developing.ru

Пожайлуста! не могу организвать цикл
з=1*2+2*3*4+3*4*5*6+...n(n+1)*...*2n

for i:=1 to 2*n-1 do s:=s+i*(i+1)

i*(i+1) - не увелчивает количество слагаемых с каждым разом. При n=2 S=20 - неверно, должно быть 26.

нашла как n-ое слагаемое вычислить
for i:=1 to n do p:=(n+i)*p;
write (p*n)

Непонятно как вывести все слагаемые до n?

УРА! Я решила!

program p2;
Uses Crt;
var i,j,n,p,s: integer;
begin
clrscr;
Writeln ('Введите значение n:');
readln (n);
s:=0;
for i:=1 to n do begin
j:=1;p:=1;
begin
for j:=1 to i do p:=(i+j)*p;
p:=p*i;
writeln ('p=',p);
end;
s:=s+p;
end;
writeln('Сумма = ',s);
readln;
end.

Да, мое решение изначально было неверным, неправильно прочитал условие. В глазах зарябило от плюсиков и звездочек, в панику впал