Var f,g:text;
    n,i,p,b:longint;

Begin
assign(f, 'fructe.in');reset(f);
assign(g, 'fructe.out');rewrite(g);
read(f, n);
for i:=1 to n do
  begin
    read(f, p,b);
    if p=b then writeln(g, '1');
    if p>b then
      if p mod b=0 then writeln(g, '1')
        else writeln(g, '0');
    if p<b then writeln(g, '0');
  end;
close(f);
close(g);
End.