pascal语言:输入任意十进制整数,分别转化为二进制,八进制和十六进制输出...答:var n,r,x:longint;procedure d2r(x,r:longint x);begin if x>=r then d2r(x/r,r); if x mod r<10 then write(x mod r) else write(chr(x mod r + 55);end;begin readln(x); write(x,'=('); d2r(x,2); writeln(')2'); write(x,'=('); d2r(x,8); ...