program nhi_phan;

uses crt;

var n:longint;

     s,st:string;

begin

       clrscr;

       write('Nhap so: ');  readln(n);

       s:='';

       while n>0 do

              begin

                     str(n mod 2,st);

                     s:=st+s;

                     n:=n div 2;

              end;

       write('So nhi phan la: ',s);

       readln;

end.

Chuyển 1 số từ hệ thập phân sang nhị phân.

Program DOI_THAP_PHAN_SANG_NHI_PHAN;
Uses Crt;
Var d:array[1..20] of byte;
         i,j,n:integer;
Begin
        Clrscr;
        Writeln('DOI SO THAP PHAN SANG NHI PHAN:');
        Writeln('------------------------------------');
        Write('Nhap so thap phan la n='); Readln(n);
         i:=1;
       Repeat
             d[i]:=n mod 2;
             n:=n div 2;
             i:=i+1;
       Until(n=0);
       Write('So nhi phan la:');
        For j:=i-1 downto 1 do
           Write (d[j]);
        Readln;
End.