/NEGATIVE - Số phủ định

<Problem>

http://ntucoder.net/Problem/Details/4417
              Uses Crt;
        Var n,i,a,k,t,j:longint; s:string;
        begin
            readln(n);
            for i:=1 to n do
            begin
                readln(a);
                k:=1; t:=0;
                repeat
                        if a mod 2=0 then t:=t+k;
                        a:=a div 2;
                        k:=k*2;
                until a=0;
               // writeln(s);
                writeln(t);
            end;
            readln;
        End.