Сколько бит нужно для записи одного разряда шестнадцатеричного числа?

 

 

 

бита

1) function numb(n: integer): integer;     var         n,ch,st,max: integer;     begin         st: =1;       max: =-1;       ch: =n mod 10;       n: =n div 10;       while(n> 0)do             begin               ch: =ch+(n mod 10)*st;               n: =n div 10;               st: =st*2;           end;         while(ch> 0)do             begin                 if(ch mod 10> max)then                       max: =ch mod 10;                 ch: =ch div 10;             end;         numb: =max; end; 2) function yravn(a,b: integer): integer;     begin       yravn: =-b div a;     end;

F: =1; g: =1; for i: =1 to m+m do         if(i mod 2=0)then                begin                   c[i]: =b[f];                     f: =f+1;               end             else                    begin                       c[i]: =a[g];                       g: =g+1;                   end;