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.

Download