А4 Все 5-буквенные слова, составленные из букв А, В, С, записаны в алфавитном порядке.
Вот начало списка:
1)
2) АААAB
3) ААAAC
4) ААABA
Какой номер будет у слова BACAB?
А5. Для передачи по каналу связи сообщения, состоящего только из символов А, Б, В и Г,
используется неравномерный (по длине) код: А-00, Б-11, В-010, Г-011. Через канал связи
передается сообщение: ГБВАВГ. Закодируйте сообщение данным кодом. Полученную
двоичную последовательность переведите в шестнадцатеричную систему счисления.
А6 Автоматическое устройство осуществило перекодировку информационного сообщения
на русском языке длиной в 20 символов, первоначально записанного в 2-байтном коде, в 8-
битную кодировку. На сколько бит уменьшилась длина сообщения?

Const n=20;
var a:array[1..n] of integer;
max,s,k,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(50);
 write(a[i],' ');
 end;
writeln;
max:=a[1];  s:=0; k:=0;
for i:=1 to n do
 begin
 if a[i]>max then max:=a[i]; 
 s:=s+a[i];
 if a[i]=10 then k:=i;
 end;
writeln('max = ',max,'  s = ',s);
if k>0
 then writeln('Элемент = 10 имеет номер ',k)
 else writeln('В массиве нет элемента = 10');
end.

Пример:
13 47 29 31 34 5 37 35 3 40 10 42 15 3 3 26 36 14 16 43 
max = 47  s = 482
Элемент = 10 имеет номер 11

# Код на ruby 2.2.3p173
def zadanie(n)
    k = 0
    for alice in 2..(n-2)
        for basilio in 1..(n-3)
            for duremar in 1..(n-3)
                if alice > basilio and alice > duremar and alice + basilio + duremar == n
                    k += 1
                    p [alice, basilio, duremar]
                end

            end
        end
    end
    return k
end

# # Примеры применения
p zadanie(16)

Вывод :
[6, 5, 5]
[7, 3, 6]
[7, 4, 5]
[7, 5, 4]
[7, 6, 3]
[8, 1, 7]
[8, 2, 6]
[8, 3, 5]
[8, 4, 4]
[8, 5, 3]
[8, 6, 2]
[8, 7, 1]
[9, 1, 6]
[9, 2, 5]
[9, 3, 4]
[9, 4, 3]
[9, 5, 2]
[9, 6, 1]
[10, 1, 5]
[10, 2, 4]
[10, 3, 3]
[10, 4, 2]
[10, 5, 1]
[11, 1, 4]
[11, 2, 3]
[11, 3, 2]
[11, 4, 1]
[12, 1, 3]
[12, 2, 2]
[12, 3, 1]
[13, 1, 2]
[13, 2, 1]
[14, 1, 1]
33

т.е