4)число 1011112 перевести в восьмеричную систему счисления 5) выполните умножение чисел 1112 и 1112 2) определить количество двоичных разрядов достаточных для кодирования 510 различных состояний?

2) для байта используется 8 бит что даёт 2 в 8 степени 256 различных состояний 2 в 9 степени 512 различных состояний следовательно 9 двоичных разрядов достаточно чтобы закодировать 510 различных состояний.

я так понимаю в 4 и 5 числа в двоичной форме

  4) разобъём число на две группы по 3 разряда и получим 101 и 111 следовательно  

101111(bin)=57(oct)

5) 111 - это 7 в десятичной   значит 7*7=49=110001

  либо кмножать в "столбик"

4)число 1011112  перевести в восьмеричную систему счисления

function pow(a,x: integer): integer; var  p, i : integer; begin  if x = 0 then      pow : = 1  else  begin      p : = 1;       for i : = 1 to x do          p : = p * a;       pow : = p;   end; end;

var  count, c, r: integer; begin  count : = 0;   r : = 0;   c : = 101111;   while c > 0 do  begin    r : = r + (c mod 10) * pow(2, count);     inc(count);     c : = c div 10;   end;   writeln('r = ', r); end.

5) выполните умножение чисел     1112    и    1112

function pow(a,x: integer): integer; var  p, i : integer; begin  if x = 0 then      pow : = 1  else  begin      p : = 1;       for i : = 1 to x do          p : = p * a;       pow : = p;   end; end; function summ(a, b: integer): integer; var  r, t, count: integer; begin  count : = 0;   r : = 0;   t : = 0;   while (a > 0) or (b > 0) do  begin    r : = r + mod 2) + (b mod 2) + t) mod 2) * pow (10, count);     inc(count);     t : = (a mod 2 + b mod 2 + t) div 2;     a : = a div 10;     b : = b div 10;   end;   r : = r + t * pow(10, count);   summ : = r; end; var  a,b , buff, count, r: integer; begin  count : = 0;   r : = 0;   a : = 111;   b : = 111;   buff : = b;   while buff > 0 do  begin      r : = summ(r, a * (buff mod 10) * pow(10, count));       buff : = buff div 10;       inc(count);   end;   writeln('r = ', r); end.

2) определить количество двоичных разрядов достаточных для кодирования 510 различных состояний?

function pow(a,x: integer): integer; var  p, i : integer; begin  if x = 0 then      pow : = 1  else  begin      p : = 1;       for i : = 1 to x do          p : = p * a;       pow : = p;   end; end; var  n, count : integer; begin  count : = 1;   write('n = ');   readln(n);   n : = abs(n);   while (pow(2, count) < n) do      inc(count);   writeln('count = ', count);   readln; end.