作业帮pascal题目 求详解
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/15 08:12:30
pascal题目 求详解
var i,j,k,s:integer;
begin
s:=0;
for i:=3 downto 1 do
begin
for j:=1 to 3 do
begin
k:=0;
repeat
k:=k+1;
s:=s+k;
until k=j;
end;
s:=s-(k+1);
end;
write('s=',s);
end.
var i,j,k,s:integer;
begin
s:=0;
for i:=3 downto 1 do
begin
for j:=1 to 3 do
begin
k:=0;
repeat
k:=k+1;
s:=s+k;
until k=j;
end;
s:=s-(k+1);
end;
write('s=',s);
end.
手动模拟!
i=1;时s:=(1+1+2+1+2+3)-(k+1); 其中k:=3;
也就是s:=(1+1+2+1+2+3)-4;
i=2,i=3时同i=1时相同
所以 s等于（1+1+2+1+2+3-4）*3=18
i=1;时s:=(1+1+2+1+2+3)-(k+1); 其中k:=3;
也就是s:=(1+1+2+1+2+3)-4;
i=2,i=3时同i=1时相同
所以 s等于（1+1+2+1+2+3-4）*3=18