洛谷 P1017 进制转换

题目大意：
读入一个十进制数N和一个负进制数的基数-R, 并将此十进制数转换为此负进制下的数，格式为
N=ANS(base=-R)

（－32768＜＝Ｎ＜＝32767）
-R∈{-2,-3,-4,…,-20}

题解：
1.对于十进制数N，转化成R（R>0）进制，每次取的余数保证在0~-m-1之间,就可以直接输出。　
2.但是题目中R<0，所以R进制中，要注意检查是不是在该范围内，因为可能在m+1~0，不在就用一种方法跳调整。
即当余数<0 ，这时候 余数自身-m，商自身+1

const
     k:string=('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ');
var
     n,r,c:longint;
     ans:string;
begin
     readln(n,r);
     write(n,'=');
     while n<>0 do
     begin
          c:=n mod r;
          n:=n div r;
          if c<0 then
          begin
               c:=c-r;
               inc(n);
          end;
          ans:=k[c+1]+ans;
     end;
     write(ans,'(base',r,')');
end.