模拟题2
题目描述
http://oj.tsinsen.com/ViewGProblem.html?gpid=-1000001011
对进制转换实在是不够熟悉，贴出来看看
http://www.cnblogs.com/skysun原创
1 program sky;
2 var
3 a:array[0..15] of char=('0','1','2','3','4','5','6','7','8',
4 '9','A','B','C','D','E','F');
5 b:array[0..10000] of char;
6 n,k,tp,i,j:longint;
7 begin
8 readln(n);
9 k:=16;
10 while n>=k do
11 begin
12 inc(j);
13 b[j]:=a[n mod k];
14 n:=n div k;
15 end;
16 write(a[n]);
17 for i:=j downto 1 do write(b[i]);
18 end.
