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

0 bình luận về “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”

1. 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.

   Bình luận