洛谷 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.