Cod sursa(job #126132)
| Utilizator | 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.
