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.

Download