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.