关闭

2015年01月25日

127人阅读 评论(0) 收藏 举报
分类:
program p26760;
var a:longint;b:array[1..10000]of longint;i,j,k:longint;
begin
 readln(a);
 i:=0;
 while a<>0 do
 begin
   k:=a mod 8;i:=i+1;b[i]:=k;
   a:=a div 8;
 end;
 for j:=i downto 1 do
 write(b[j]);
 writeln;
end.
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:16127次
    • 积分:118
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档