不是VIP会员,不能显示答案

题目解答

题目:
var i,j,n:integer;
b:array[1..10] of 0..2;
begin
n:=2014;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.

输出:2202121
考点:
分析:
解答:
评论:
老师: