Var He10,N,Y:Word; He2,Tam:String; Begin Write('Nhap so nguyen he thap phan: '); Readln(He10); N:=He10; He2:=' '; Repeat Y:=He10 Mod 2; Str(Y, Tam); He2:=Tam + He2; He10:= He10 Div 2; Until He10 = 0; Writeln; Writeln('+So he 10 la : ',N); Writeln('+Doi sang he 2 la: ',He2); Readln End.
uses crt; var d: array[1..20] of byte; i, j, n:integer; begin clrscr; write('Nhap 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.
