program nhi_phan; uses crt; var n,i:integer; {---Chuyen---} function nhiphan(k:integer):string; var m:byte; s,st:string; begin s:=''; st:=''; if k=1 then str(k,s) else while k<>0 do begin m:=k mod 2; k:=k div 2; str(m,st); s:=st+s; end; nhiphan:=s; end; {---CTC---} BEGIN clrscr; write('Nhap n = '); readln(n); for i:=1 to n do writeln(i,' = ',nhiphan(i)); readln; end.
program Hello; uses crt; var n, i, j, a: integer; d:array[1..100] of byte; begin clrscr; readln(n); for i:=1 to n do begin a:=1; j:=i; Repeat d[a]:=j mod 2; j:=j div 2; a:=a+1; Until(j=0); write(i,': '); for j:= a-1 downto 1 do write(d[j]); writeln(); end; readln; end.
