我就贴两段代码，跪着不说话：
var a,b,c:dword; begin read(a,b); while b<>0 do begin c:=a and b; a:=a xor b; b:=c shl 1; end; writeln(a); end.
{$asmmode Intel} var a,b,c:longint; begin readln(a,b); asm mov eax,a add eax,b mov c,eax end; writeln(c); end.
原文：http://www.cnblogs.com/sorhri/p/ABP.html