输入一个10进制的数n,把它转换成一个m进制的数(m自定义) program data; var n,m:integer; procedure turndata(n,a:integer)
; var x:array[1..20] of integer; i,j,k,y:integer; begin writeln(n, run into,a,:); if n<
0 then write(-); j:=abs(n); k:=0; repeat k:=k+1; i:=j mod a; j:=j div a; x[k]:=i; until j<=0; for y:= k downto 1 do if x[y]<10 then write(x[y]
) else write(chr(55+x[y])); writeln; writeln; end; {————————main———————-} begin writeln(input n(-32367 to 32767)); readln(n); writeln(input m, let n get m); readln(m)
; turndata(n,m); write(n,m); writeln(pay attention!); turndata(n,m); write(n,m); readln; end.