program pku3219;
  var
    i,j,k,n,m,s:longint;
  function bi(u:longint):longint;
    var
      v,w:longint;
    begin
      w:=0;
      while (u mod 2=0) and (u>0) do begin
        inc(w);
        u:=u div 2;
      end;
      exit(w);
    end;
  begin
    while not seekeof(input) do begin
      readln(n,k);
      s:=bi(n)-bi(k)-bi(n-k);
      if s>0 then writeln(0) else writeln(1);
    end;
  end.

• Re:why WA (479) 19921020 2009-06-20 22:10:31