<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.