可以通过itoa函数直接直接转换的,头文件stdlib.h,三个参数,第一个希望转换d的,就是十进制的N,第二个是转换后的存储区,第三个转换的进制类型
var a:array[1..100] of integer;
i,j,x,b,c:longint;
begin
readln(x);
b:=x; c:=x;
i:=0;
repeat
i:=i+1;
a[i]:=x mod 16;
x:=x div 16;
until x=0;
for j:=i downto 1 do
if a[j]<10 then write(a[j])
else write(chr(ord(a[j])-10+ord('A')));
writeln;
i:=0;
repeat
i:=i+1;
a[i]:=b mod 2;
b:=b div 2;
until b=0;
for j:=i downto 1 do
write(a[j]);
writeln;
i:=0;
repeat
i:=i+1;
a[i]:=c mod 8;
c:=c div 8;
until c=0;
for j:=i downto 1 do
write(a[j]);
writeln;
end.