Cod sursa(job #42932)
Utilizator | Data | 29 martie 2007 17:19:07 | |
---|---|---|---|
Problema | Balanta | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 2.12 kb |
var a,b,nu,mu:array[1..1050] of integer; i,j,x,ad,n,m,nr1,nr2,r:longint; f1,f2:text;
begin
assign(f1,'balanta.in');
reset(f1);
assign(f2,'balanta.out');
rewrite(f2);
read(f1,n,m);
for i:=1 to n do begin a[i]:=1; b[i]:=1; end;
for i:=1 to m do begin
read(f1,x);
for j:=1 to x do read(f1,mu[j]);
for j:=1 to x do read(f1,nu[j]);
read(f1,ad);
if ad=0 then begin
for j:=1 to x do begin
a[mu[j]]:=0;
b[mu[j]]:=0;
a[nu[j]]:=0;
b[nu[j]]:=0;
end;
end;
if ad=1 then begin
for j:=1 to x do begin
inc(a[mu[j]]);
a[nu[j]]:=0;
b[mu[j]]:=0;
inc(b[nu[j]]);
end;
for j:=1 to n do begin
dec(a[j]);
dec(b[j]);
end;
end;
if ad=2 then begin
for j:=1 to x do begin
inc(a[nu[j]]);
a[mu[j]]:=0;
b[nu[j]]:=0;
inc(b[mu[j]]);
end;
for j:=1 to n do begin
dec(a[j]);
dec(b[j]);
end;
end;
end;
for i:=1 to n do begin
if a[i]>0 then begin inc(nr1); r:=i; end;
if b[i]>0 then begin inc(nr2); r:=i; end;
end;
if ((nr1=1)and(nr2=0))or((nr1=0)and(nr2=1)) then writeln(f2,r)
else writeln(f2,0);
close(f1);
close(f2);
end.