var
  n,k,m,a,b,c:longint;
begin
  while not eof do
    begin
      readln(n,k);
      m:=n-k;
      a:=0;
      b:=0;
      c:=0;
      while n<>0 do
        begin
          n:=n div 2;
          a:=a+n;
        end;
      while m<>0 do
        begin
          m:=m div 2;
          b:=b+m;
        end;
      while k<>0 do
        begin
          k:=k div 2;
          c:=c+k;
        end;
      if (a-b>c) then writeln(0)
      else writeln(1);
  end;
end.

• Re:根据定理写的PASCAL 1AC 0MS (9) demaxiya 2012-08-28 10:28:44