| Time Limit: 1000MS | Memory Limit: 65536K | |
| Total Submissions: 9297 | Accepted: 5365 | 
2 45 45 3 3 6 9
No Yes
 
var x,y,n:int64;i:longint; procedure main; begin y:=0; read(n); for i:=1 to n do begin read(x); y:=y xor x; end; if y=0 then writeln(‘No‘) else writeln(‘Yes‘); end; begin while not seekeof do main; end.
原文:http://www.cnblogs.com/yangqingli/p/4895984.html