各种位运算经验(源码用delphi示例)

二进制中的1有奇数个还是偶数个var i,x,c:longint;begin readln(x); c:=0; for i:=1 to 32 do begin c:=c