codevs天梯 十进制转N进制 暴力模拟

题目：

将十进制数n转换成m进制数 m<=16

n<=100

分析：

不多说了，水题不解释，暴力模拟。

代码：

const   temp:array [0..15] of char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'); var   n,m:longint; procedure init; begin   readln(n,m); end; procedure main; var   i:longint;   s:string; begin   s:='';   while n<>0 do     begin       i:=n mod m;       s:=temp[i]+s;       n:=n div m;     end;   write(s); end; begin   init;   main; end.