最后一组测试数据：
0 -20
输出：
0=0(base -20)！！！
打表水过

？？？？我：走这里 程序：滚

坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭坑吭

OMG 身败名裂

回复 @Truth.Cirno :
不看评论果然会掉坑啊。。最后一组num=0，成功WA一次。。

处理余数很重要

var
a,b,c:array[1..5000]of longint;
d:array[10..36]of char;
i,j,k,l,n:longint;
m:char;
begin
assign(input,'fjz.in');
assign(output,'fjz.out');
reset(input);
rewrite(output);
k:=1;
n:=10;
for m:='A'TO 'Z'DO
begin
d[n]:=m;
n:=n+1;
end;
repeat
inc(i);
read(a[i]);
read(b[i]);
until eof ;
for j:=1 to i do
begin
write(a[j],'=');
repeat
begin
c[k]:=a[j] mod b[j];
a[j]:=a[j] div b[j];
if c[k]<0 then
begin
a[j]:=a[j]+1;
c[k]:=c[k]-b[j];
end;
k:=k+1;
end;
until (a[j]=0);
for l:=k-1 downto 1do
begin
if c[l]>=10 then write(d[c[l]])else
write(c[l]);
end;
write('(base ',b[j],')');
writeln;
k:=1;
end;
close(input);
close(output);
end.
前五个点过不去，求解

0.0

请考虑（num=0，base=[int]）的情况
方法么：和正进制一样，只不过，需要处理一下余数，让余数总大于0，同时对商做出修改即可。

我晕...
最后一组啥数据啊..