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.