比赛 20101117 评测结果 AAAEEEEEEA
题目名称 拯救 最终得分 40
用户昵称 王者自由 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-17 09:47:24
显示代码纯文本
program savey;
uses math;
type arr=array of 0..1;
var i,n:integer; m:int64;
    A,B:arr;
begin
  assign(input,'savey.in'); reset(input);
  assign(output,'savey.out'); rewrite(output);
  readln(n);
  SetLength(A,n+1); SetLength(B,n+1);
  for i:=n downto 1 do read(A[i]);
  B[1]:=A[1];
  for i:=2 to n do B[i]:=A[i] xor B[i-1];
  m:=0;
  for i:=1 to n do
    if B[i]=1 then m+=2**(n-i);
  writeln(m);
  close(input); close(output);
end.