Question

pascal程序设计：s:=1*2*3+2*3*4+3*4*5+......+n*(n+1)*(n+2).

Answer 1

program 1
var
i,n,s:integer;
begin
s:=0;
read(n);
for i:=1 to n do
s:=s+i*(i+1)*(i+2);
write(s);
end.

Answer 2

program 1
var
i,n,s:integer;
begin
s:=0;
read(n);
for i:=1 to n do
s:=s+i*(i+1)*(i+2);
write(s);
end.

Answer 3

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