直接位运算shl和and
Program jalskdg;
Var n,m:qword;
i,k:longint;
Operator **(a,n:longint)r:qword;
Var i:longint;
Begin
r:=1;
For i:=1 to n do r:=r*a;
End;
Begin
Readln(n);
While n>0 do Begin
Readln(k);m:=0;
For i:=1 to 31 do
If k And(1 shl (i-1))=1 shl(i-1)Then
m:=m+3**(i-1);
Writeln(m);
dec(n);
End;
End.