Pagini recente » Cod sursa (job #41941) | Cod sursa (job #2368513) | Cod sursa (job #2883361) | Cod sursa (job #1116499) | Cod sursa (job #26496)
Cod sursa(job #26496)
program balanta;
var f,ff:text;
i,c,j,k,r,n,m:integer;
u,g:array[1..1024] of 0..1;
a,b:array[1..1024] of 1..1024;
begin
assign(f,'balanta.in');
reset(f);
readln(f,n,m);
for i:=1 to n do begin g[i]:=0; u[i]:=0; end;
for i:=1 to m do
begin
read(f,k);
for j:=1 to k do read(f,a[j]);
for j:=1 to k do read(f,b[j]);
readln(f,r);
if r=1 then
begin
for j:=1 to k do begin g[a[j]]:=1; u[a[j]]:=0; end;
for j:=1 to k do begin u[b[j]]:=1; g[b[j]]:=0; end;
end
else if r=2 then
begin
for j:=1 to k do begin g[b[j]]:=1; u[b[j]]:=0; end;
for j:=1 to k do begin u[a[j]]:=1; g[a[j]]:=0; end;
end
else if r=0 then
for j:=1 to k do begin u[a[j]]:=0; g[b[j]]:=0; g[a[j]]:=0; u[b[j]]:=0; end;
end;
close(f);
assign(ff,'balanta.out');
rewrite(ff);
c:=0; for i:=1 to n do if g[i]=1 then begin inc(c); j:=i; end;
if c=1 then writeln(ff,j)
else
begin
c:=0; for i:=1 to n do if u[i]=1 then begin inc(c); j:=i; end;
if c=1 then writeln(ff,j)
else writeln(ff,'0');
end;
close(ff);
end.