Cod sursa(job #708969)

Utilizator Buzu_Tudor_RoCont vechi Buzu_Tudor_Ro Data 7 martie 2012 16:22:11
Problema Xerox Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.59 kb
Program xerox_nim_game;
var fi,fo : text;
    i,n,j,k,s,nr : longint;

begin
    assign(fi,'xerox.in'); reset(fi); readln(fi,k);
    assign(fo,'xerox.out'); rewrite(fo);

    for j:=1 to k do begin
                     s:=0; readln(fi,n);
                     for i:=1 to n do begin
                                      readln(fi,nr);
                                      s:=s xor nr;
                                      end;
                     if s<=0 then writeln(fo,'0')
                             else writeln(fo,'1');
                     end;

    close(fi); close(fo);
end.