BASEH - Cơ số H
Tác giả: RR
Ngôn ngữ: Pascal
var
k,h:longint;
s:string;
begin
read(k,h); s:='';
while k>0 do
begin
if k and 1=1 then s:='1'+s
else s:='0'+s;
k:=k shr 1;
end;
writeln(s);
end.
Tác giả: RR
Ngôn ngữ: Pascal
var
k,h:longint;
s:string;
begin
read(k,h); s:='';
while k>0 do
begin
if k and 1=1 then s:='1'+s
else s:='0'+s;
k:=k shr 1;
end;
writeln(s);
end.