Вычислить

[adm2010]

пожалуйста помогите составить программу для вычисления Р=1*2+2*3*4+3*4*5*6+...+ N*(N+1)*...*2N

[Sparkman]

Сообщение от adm2010

пожалуйста помогите составить программу для вычисления Р=1*2+2*3*4+3*4*5*6+...+ N*(N=1)*...*2N

для Р=1*2+2*3*4+3*4*5*6+...+ N*(N+1)

var n,i:integer;
    p:longint;
begin
     readln(n);
     for i:=1 to n do
     p:=p+i*(i+1);
     writeln(p);
     readln;
end.

[adm2010]

Сообщение от Sparkman

для Р=1*2+2*3*4+3*4*5*6+...+ N*(N+1)

var n,i:integer;
    p:longint;
begin
     readln(n);
     for i:=1 to n do
     
     writeln(p);
     readln;
end.

а если здесь написать так
p:=p+i*(i+1)*(2*n);
будет считать до Р=1*2+2*3*4+3*4*5*6+...+ N*(N+1)*...*2N?

[Mad_Cat]

нет) будет

p=1*2*2*n+2*3*2*n+3*4*2*n......+n*( n+1)*2*n

да и у
Sparkman код не верен
у него получается

p:=1*2+2*3+3*4+5*6+n*(n+1)

а не

Р=1*2+2*3*4+3*4*5*6+...+ N*(N+1)

как он обещал)

[adm2010]

Сообщение от Mad_Cat

нет) будет

да и у
Sparkman код не верен
у него получается
а не
как он обещал)

а не подскажите как будет верно?

[Mad_Cat]

да легко

var p,pp,i,j:integer;
begin
p:=0;
for i:=1 to n do begin
pp:=1;
for j:=i to 2*i do
pp:=pp*j;
p:=p+pp;
end;
writeln(p);
readln;
end.

это для Р=1*2+2*3*4+3*4*5*6+...+ N*(N+1)*...*2N?

да именно для этого

[adm2010]

Сообщение от Mad_Cat

да легко

var p,pp,i,j:integer;
begin
p:=0;
for i:=1 to n do begin
pp:=1;
for j:=i to 2*i do
pp:=pp*j;
p:=p+pp;
end;
writeln(p);
readln;
end.

это для Р=1*2+2*3*4+3*4*5*6+...+ N*(N+1)*...*2N?

[adm2010]

Сообщение от Mad_Cat

да именно для этого

а тут получается мы никаких данных не вводим?программа сразу выдает ответ?
а то что в ответе 0 это норм?