/BITS - Số bít khác nhau

              Uses Crt;
        Var     a,b,kq1,kq2,count:longint;
        Begin
                readln(a,b);
                count:=0;
                repeat
                        if (a mod 2=0) then kq1:=0 else kq1:=1;
                        a:=a div 2;  //write(kq1);
                        if (b mod 2=0) then kq2:=0 else kq2:=1;
                        b:=b div 2; //write(kq2);
                        if (kq1<>kq2) then inc(count);
                until (a=0) and (b=0);
                writeln(count);
                readln;
        End.