Chuyển mã thập phân

program chuyenmathapphan;
uses crt;
var n:byte;
a,j:longint;
i:byte;c:array[1..100] of byte;
begin
repeat
clrscr;
write(`Nhap so can ma hoa: `);readln(a);
write(`He dem co so: `);readln(n);
if n<=1 then writeln(`khong co he dem nay `);
i:=0;
if n>1 then
repeat
j:=a div n;
i:=i+1;
c[i]:=a mod n;
a:=j;
until j=0;write(` `);
case n of
16: begin
for i:=i downto 1 do
case c[i] of
10:write(`A`);11:write(`B`);
12:write(`C`);13:write(`D`);
14:write(`E`);15:write(`F`)
else write(c[i]:2);end; end{khong co ";" vi dung truoc else}
else for i:=i downto 1 do write(c[i]:2);
end;{ket thuc "case...of"}

writeln;writeln;{xuong dong}
write(`1=Tiep tuc; 2=ket thuc;`);readln(n);{lua chon tiep tuc/ket thuc}
until n=2;{ket thuc neu chon=2}
end.

Đây là CT tự do không tham khảo chương trình của bất kì tác giả nào khác nên không hề có vi phạm bản quyền.
Miroslav Klosetei