Какое минимальное количество бит потребуется для кодирования положительных чисел, меньших 60? решите без логорифмов

6 бит

2^6=64, а 60 меньше чем 64

var a,b: integer;

begin

    readln(a,b);

    repeat

      if(a> b) then a: =a-b;

      if(b> a) then b: =b-a;

    until (a< > b);  

    writeln('gcd = ', a);

end.

 

var a,b: integer;

begin

    readln(a,b);

    while (a< > b) do begin

      if(a> b) then a: =a-b;

      if(b> a) then b: =b-a;

    end;

    writeln('gcd = ', a);

end.

program todec;

uses crt; var s: string; n,l,i: integer;

 

function pow(x,y: integer): integer; begin      if y> 0 then pow: =pow(x,y-1)*x                else pow: =1; end; function todec(a : string) : integer; var l : byte; begin      if a = '' then todec : = 0                else begin                              l : = length(a);                                 case a[1] of                                      '0' : todec : = todec(copy(a, 2, l - 1));                                       '1' : todec : = pow(2, l - 1) + todec(copy(a, 2, l - 1));                                 end;       end; end; begin      clrscr;       write('введите двоичное число: ');       readln(s);       writeln('это число в десятичной системе : ', todec(s));   readkey; end.