Viết ct đổi số hệ thập phân sang nhị phân và ngược lại Vd: Inp. Out 10 1010 1111 15 Inp dòng 1 số hệ thập phân 2 hệ nhị phân Out dòng 1 hệ nhị phân 2 hệ thập phân Thách ai làm đc

1 câu trả lời

program ct;
uses crt;
var n,m,H2,Y:qword;
    a,H:string;
begin clrscr;
   write('Nhap so nguyen duong: '); readln(n);
     H2:=n;
     H:=' ';
   repeat
     m:=H2 mod 2;
     if Y<10 then str(m,a)
             else a:=chr(m+55);
     H:=a+H;
     H2:=H2 div 2;
   until H2=0;
   write('So ',n,' doi sang he nhi phan la: ',H);
readln;
end.

Câu hỏi trong lớp Xem thêm