rostr7.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 23 行

var s,t:string;
    n,i,j:integer;
    c:char;
begin
write('n=');readln(n);
s:='';
while n<>0 do
           begin
           i:=n mod 16;
           n:=n div 16;
           if i <10 then str(i,t)
                   else
                   begin
                   c :=chr(i+ord('A')-10);
                   t:=' ';
                   t[i]:=c;
                   s:=s+t[i];
                   end;
           end;
for j :=length(s) downto 1 do
                            write(s[j]);
readln;
end.