var a,i,j:longint;begin for i:=1 to 3 do for j:=1 to 3 do if i<>j then writeln(i*10+j);end.
楼主，这么简单的你也做不出吗？
varx,y:1..3;beginfor x:=1 to 3 dofor y:=1 to 3 doif (x<>y)thenwrite(x,y,' ');end.
如此简单var i,j:integer;begin for i:=1 to 3 do begin for j:=1 to 3 do begin if i<>j then write(i*10+j,' ') end; end;end.
答：你的y没付初值 for x :=1 to n do for y := 1to n do a[x,y]:=0; k :=n; j:=1; tot :=0; x :...详情>>
