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.

Download