以前总是开3^21的数组.可总是得60分.

直到今天 开3^30 终于过了!!

以前总是在别的地方找错,原来是这里的问题.

这题需要用数组么，汗~

我存二进制时用了

直接位运算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.