Cod sursa(job #126132)

Utilizator vladianavladiana micu vladiana Data 21 ianuarie 2008 15:17:48
Problema Xerox Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.58 kb
var fi,fo:text;
    n,k,i,j,m,t,px,py,dx,dy,rez:longint;
    nr:array[1..100]of integer;
begin
  assign(fi,'xerox.in'); reset(fi);
  assign(fo,'xerox.out'); rewrite(fo);
  read(fi,t);
  for i:=1 to t do
    begin
      read(fi,n,dx,dy);
      for j:=1 to n do
        begin
          read(fi,nr[j]);
          for k:=1 to nr[j] do
            read(fi,px,py);
        end;
      rez:=nr[1] xor nr[2];
      for j:=3 to n do
        rez:=rez xor nr[j];
      if rez=0 then writeln(fo,'0')
               else writeln(fo,'1');
    end;
  close(fi);
  close(fo);
end.