{ Bài 12: Viết chương trình thực hiện yêu cầu sau:
• Nhập vào chữ “T” thì cho phép đổi số từ hệ nhị phân sang thập phân
• Nhập vào chữ “N” thì cho phép đổi số từ hệ thập phân sang hệ nhị phân. }
program CT;
uses crt;
var lt,n,i,j,r,tam,tong:longint;
s:string;
a:array[1..100] of integer;
begin
clrscr;
write('moi nhap mot so: ');readln(n);
write('');readln(s);
Case s of
'n', 'N':
begin
j:=1;
repeat
r:=n mod 2;
a[j]:=r;
j:=j+1;
tam:=n div 2;
n:=tam;
until n = 0;
for i:=j-1 downto 1 do write(a[i]);
end;
't', 'T':
begin
tong:=0;
j:=0;
repeat
lt:=1;
r:=n mod 10;
for i:=1 to j do lt:=lt*2;
tong:=tong+r*lt;
n:=n div 10;
j:=j+1;
until n = 0;
write(tong);
end;
end;
readln;
end.