BASEH - Cơ số H
Tác giả: flashmt
Ngôn ngữ: Pascal
var h,p,i:longint;
a:array[1..32] of byte;
begin
read(p,h);
fillchar(a,sizeof(a),0);
close(input);
h:=0;
while p>0 do
begin
inc(h);
a[h]:=p mod 2;
p:=p div 2;
end;
for i:=h downto 1 do write(a[i]);
end.