Для кодирования букв а, б, в, г используются четырехразрядные последовательные двоичные числа от 1000 до 1011 соответственно. таким способом закодировать последовательность символов бгав и записать результат в восьмеричном коде. прошу, распишите решение.

1011110110101100 - результат в двоичной системе

чтобы перевести в восьмеричную нужно разбить на части ( по три цифры )

1.011.110.110.101.100 , и каждой части наити соответствие по таблице

получится, 136654 - в восьмеричной системе  

 

запишим коды каждой буквы:

а = 1000

б = 1001

в = 1010

г = 1011

 

запишем последовательность бгав = 1001101110001010

 

чтобы перевести в восьмеричный код из двоичного, следует начиная с конца разбить код на тройки и каждую уже перевести. получится:

001 001 101 110 001 010 (впереди числа, если не хватаем чисел, можно дописывать 0. они не результата, просто удобны для записи).

 

переводим кажое число путем развернутой формы записи и счета:

 

 

 

 

 

 

ответ: 115612

Program pr3; const {убраны лишние описатели - чистая косметика}   a = 2.12;   b = 7.45;   h = 0.34; var   x, f1, f2, y, s: real;   i, n: integer; {описание, необходимое для цикла} begin   { x : = a; этот оператор не нужен }   s : = 0;   n : = trunc((b - a) / h)+1; {стандартная формула числа повторений цикла }   for i : = 1 to n do { заголовок цикла }   begin    {начало блока для выполнения в цикле }       x : = a + (i - 1) * h;   { перенесено из конца цикла }       f1 : = 3 * ln(exp(1 / 5) * ln(sin(x) + sqr(;       f2 : = ((2 * x + 1) / (x * x * x * x * x));       y : = f1 / f2;       s : = s + y;   end;   {конец блока для выполнения в цикле }   writeln('s=', s: 10: 5); end. тестовое решение: s=26390.53751

//pascalabc.net 3.1 сборка 1239 var       brackets: array [0..2, 0..1] of char : = (('{', '}'), ('[', ']'), ('(', ')')); begin       var s : = readlnstring();       var counter : = 0;       var max_depth : = 0;             for var i : = 1 to s.length do       begin               if s[i] = '(' then counter += 1               else if s[i] = ')' then counter -= 1               else continue;               if counter < 0 then begin                       writeln('brackets error');                       halt;               end;               if counter > max_depth then max_depth : = counter;       end;             counter : = 0;       for var i : = 1 to s.length do       begin               if s[i] = '(' then counter += 1               else if s[i] = ')' then counter -= 1               else continue;                             if (counter = max_depth - 1) and (s[i] = '(') then s[i] : = brackets[1, 0]               else if (counter = max_depth - 2) and (s[i] = ')') then s[i] : = brackets[1, 1]               else if (counter = max_depth - 2) and (s[i] = '(') then s[i] : = brackets[0, 0]               else if (counter = max_depth - 3) and (s[i] = ')') then s[i] : = brackets[0, 1];       end;             writeln(s); end.