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.
