var  t,i:shortint;
procedure citire_paritate;
var p,b:longint;
begin
readln (input,p,b);
if (p mod 2=0) or (b mod 2=0) then
writeln (output,1)
else
writeln (output,0);
end;
begin
assign (input,'fructe.in');
reset (input);
readln (input,t);
assign (output,'fructe.out');
rewrite (output);
for i:=1 to t do
citire_paritate;
close (input);
close (output);
end.