pascal题目 求详解var i,j,k,s:integer;begins:=0;for i:=3 downto 1 dobeginfor j:=1 to 3 dobegink:=0;repeatk:=k+1;s:=s+k;until k=j;end;s:=s-(k+1);end;write('s=',s);end.

pascal题目 求详解var i,j,k,s:integer;begins:=0;for i:=3 downto 1 dobeginfor j:=1 to 3 dobegink:=0;repeatk:=k+1;s:=s+k;until k=j;end;s:=s-(k+1);end;write('s=',s);end.
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.

pascal题目 求详解var i,j,k,s:integer;begins:=0;for i:=3 downto 1 dobeginfor j:=1 to 3 dobegink:=0;repeatk:=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