Для кодирования букв Д, Б, Р, О, Т, решили использовать двоичное представление чисел 1, 2, 3, 4, 5 и 6 соответственно (с сохранением одного незначащего нуля в случае одноразрядного представления). Если закодировать последовательность букв ДОБРОТА таким и результат записать шестнадцатеричным кодом, то получится:

Такое уже было. я на него отвечал, думаю модераторы не против, если свой же ответ здесь предоставлю)   только первых три 1: var p: array[1..10] of integer;     i: integer; count: integer; begin for i: =1 to 10 do read(p[i]); write('сколько цифр массива хотите видеть? -> ');   readln(count); for i: =1 to count do write(p[i]: 3); end. 2: var arr: array[1..10] of integer;     i: integer;       s: integer;       count: integer; beginfor i: =1 to 10 dobeginarr[i]: =random(-10,10); if(arr[i]< 0)  thenbeginwriteln(arr[i]: 4); s: =s+arr[i]; count: =count+1; end; end; writeln('среднее значение = ', s/count); end. 3: var arr: array[1..10] of integer;       i: integer;       crat: integer;       id: integer;           begin    for i: =1 to 10 do    begin    read(arr[i]);     crat: =arr[i] mod 3;     if(crat = 0) then    begin    id: =arr[i];         if(arr[i] = id) then writeln('id = ', i: 2);       end;     end;     end.