您所在位置：主题：请帮忙解答一条程序题!
随风自然
[专家分：0] 发布于 2006-05-24 11:24:00
有谁可以把以下的运算过程写给我，结果是3413
program p42;
var
x,p,i,s:integer;
begin
s:=0;
for x:=1 to 5 do begin
p:=1;
for i:=1 to x do
p:=p*x;
s:=s+p;
end;
writeln(s);
end.
program p42;
var
x,p,i,s:integer;
begin
s:=0;
for x:=1 to 5 do begin
p:=1;
for i:=1 to x do
p:=p*x;
s:=s+p;
end;
writeln(s);
end.
