交换两个数，不用临时变量

procedure swap(var a,b:longint);
begin
   a:=a + b;
   b:=a - b;
   a:=a - b;


end;







    好了，刚才不是说xor的逆运算是它本身吗？于是我们就有了一个看起来非常诡异的swap过程：
procedure swap(var a,b:longint);
begin
   a:=a xor b;
   b:=a xor b;
   a:=a xor b;
end;