如,A := 1; B := 2; 交换之后 A = 2; B = 1。
回答: 1)利用加法
var a, b : integer; begin a = a + b; b = a - b; a = a - b; end;
2) 利用异或
var a, b : integer;begin a = a ^ b; b = b ^ a; a = a ^ b;end;

如,A := 1; B := 2; 交换之后 A = 2; B = 1。
回答: 1)利用加法
var a, b : integer; begin a = a + b; b = a - b; a = a - b; end;
2) 利用异或
var a, b : integer;begin a = a ^ b; b = b ^ a; a = a ^ b;end;