Pagini recente » Cod sursa (job #1742583) | Cod sursa (job #1172204) | Cod sursa (job #1044488) | Cod sursa (job #2026077) | Cod sursa (job #716414)
Cod sursa(job #716414)
program fructe;
var p,b:array[1..100] of int64;
f,q:text;
t,i,x,y:longint;
begin
assign(f,'fructe.in');
reset(f);
assign(q,'fructe.out');
rewrite(q);
readln(f,t);
for i:=1 to t do
begin
read(f,x,y);
p[i]:=x;
read(f);
b[i]:=y;
end;
for i:=1 to t do
begin
while b[i]>0 do
begin
if p[i]>1 then p[i]:=p[i]-2
else if b[i]>1 then b[i]:=b[i]-2
else begin p[i]:=p[i]-1;
b[i]:=b[i]-1;
end;
if (p[i]=0)and(b[i]=0) then b[i]:=b[i]+1
else if p[i]>b[i] then p[i]:=p[i]+1
else p[i]:=p[i]+1;
end;
if (p[i]>0) then writeln(q,'0')
else writeln(q,'1');
end;
close(f);
close(q);
end.