将m进制数n转化成一个十进制数 m<=16
题目保证转换后的十进制数<=100
输入描述 Input Description
n和m
输出描述 Output Description
共一个数
表示m进制的n化成十进制的数
样例输入 Sample Input
1010 2
样例输出 Sample Output
10
代码:
var ch,k:char;
st,st1:string;
j,i,x,m,n:longint;
begin
read(ch);
while ch<>' ' do
begin
st:=st+ch;
read(ch);
end;
read(m);
n:=10;
x:=0;st1:='';
for i:=1 to length(st) do
begin
case st [i] of
'0':j:=0;'1':j:=1;
'2':j:=2;'3':j:=3;
'4':j:=4;'5':j:=5;
'6':j:=6;'7':j:=7;
'8':j:=8;'9':j:=9;
'A':j:=10;'B':j:=11;
'C':j:=12;'D':j:=13;
'E':j:=14;'F':j:=15;
end;
x:=x*m+j;
end;
repeat
case x mod n of
0:k:='0';1:k:='1';
2:k:='2';3:k:='3';
4:k:='4';5:k:='5';
6:k:='6';7:k:='7';
8:k:='8';9:k:='9';
10:k:='A';11:k:='B';
12:k:='C';13:k:='D';
14:k:='E';15:k:='F';
end;
x:=x div n;
st1:=k+st1;
until x=0;
writeln(st1);
end.