program sx201602;
var i,j,n:integer;
b:array[1..10] of 0..2;
begin
n:=2016; j:=0;
while n>0 do begin
j:=j+1; b[j]:=n mod 3;
n:=n div 3;
end;
for i:=j downto 1 do write(b[i]);
writeln;
end.

输出：2202200