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

题目解答

题目:
var
n:longint;
procedure change(n:longint);
var
i,j:longint;
begin
if n=0 then exit;
i:=n mod 8;
j:=n div 8;
change(j);
writeln(i);
end;
begin
readln(n);
change(n);
end.

输入:2017
输出:3741
考点:
分析:
解答:
评论:
老师: