记录编号	193556	评测结果	AAAAAAAAAA
题目名称	[NOIP 2000]进制转换	最终得分	100
用户昵称	グッド大きな萌菌	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2015-10-14 21:08:11	内存使用	0.20 MiB

program fjz;
const
    c:array[0..19] of char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J') ;
var
    n,r,t,i,o:longint;
    a:array[0..10000] of longint;
begin
	assign(input,'fjz.in');reset(input);
	assign(output,'fjz.out');rewrite(output);
	repeat
    readln(n,r);
    write(n,'=');
    repeat
        t:=n mod r;
        n:=n div r;
        if t<0 then
        begin
            t:=t-r;
            inc(n);
        end;
        inc(o);
        a[o]:=t;
    until n=0;
    for i:=o downto 1 do
    write(c[a[i]]);
    writeln('(base ',r,')');
	until n=0;
	readln;
	close(input);close(output);
end.