program bai_giai; uses crt; var A:array[1..100000] of longint; n,i:longint; function nhiphan(k:longint):string; var s,st:string; begin s:=''; while k<>0 do begin str(k mod 2,st); s:=st + s; k:=k div 2; end; exit(s); end; BEGIN clrscr; write('Nhap so luong phan tu: '); readln(n); for i:=1 to n do begin write('Nhap so thu ',i,': '); readln(A[i]); end; writeln('Nhi phan theo thu tu: '); for i:=1 to n do writeln(nhiphan(A[i])); readln; END.
uses crt; var a:array[0..10000] of longint; i,n:longint; function bin(n:longint):string; var s:string; begin s:=''; while n <> 0 do begin s:=chr(n and 1 + 48) + s; n:=n shr 1; end; exit(s); end; begin readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do write(bin(a[i]),' '); readln; end.
