来自本人百度空间 2009-08-20 16:44
program change(input,output);
var
a,i,n1,n2,topb:longint;
str1:string;
b:array[1..9999999] of integer;
c:array['0'..'Z'] of integer;
topc:char;function chengfang(a,j:longint):longint;
var i,m:longint;
begin
m:=1;
for i:=1 to j do m:=m*n1;
chengfang:=a*m;
end;{chengfang}
begin
assign(input,'change.in');
reset(input);
assign(output,'change.out');
rewrite(output); readln(n1,n2);
readln(str1);
close(input);
for topc:='0' to 'Z' do
if ord(topc)>= ord('A') then c[topc]:=10+ord(topc)-ord('A')
else c[topc]:=ord(topc)-ord('0');
a:=0;
for i:=length(str1) downto 1 do begin
a:=a+chengfang(c[str1[i]],length(str1)-i);
end;
topb:=0;
while a<>0 do begin
inc(topb);
b[topb]:=a mod n2;
a:=a div n2;
end;
for i:=topb downto 1 do write(b[i]);
close(output);
end.