BASEH - Cơ số H
Tác giả: ladpro98
Ngôn ngữ: Pascal
program baseH;
uses math;
var s:string;
k,h:longint;
begin
readln(k,h);
s:='';
while k>0 do
begin
if k mod 2 = 0 then
s:='0'+s
else
s:='1'+s;
k:=k div 2;
end;
write(s);
end.