PDF-версии: 
Все четырёхбуквенные слова, в составе которых могут быть только буквы А, В, Т, О, Р, записаны в алфавитном порядке и пронумерованы, начиная
1. АААА
2. АААВ
3. АААО
4. АААР
5. АААТ
6. ААВА
...
Под каким номером в списке идёт
Решение. Заменим буквы на цифры следующим образом: А — 0, В — 1, О — 2, Р — 3, Т — 4. Получаем список:
1. 0000
2. 0001
3. 0002
4. 0003
5. 0004
...
Используется пятибуквенный алфавит, значит, чтобы найти номер
Ответ: 146.
Приведём другое решение на языке Python.
a = {0: "А", 1: "В", 2: "О", 3: "Р", 4: "Т"}
k = 0
for i in range(0, len(a)):
for j in range(0, len(a)):
for g in range(0, len(a)):
for m in range(0, len(a)):
k += 1
if i == 1 and j == 0 and g == 4 and m == 0:
print(k)
Приведём решение Бориса Савельева на языке Python.
from itertools import product
s = product('АВОРТ',repeat = 4)
count = 1
for i in s:
p = ''.join(i)
if p == 'ВАТА':
print(count)
count += 1
Приведём решение Юрия Красильникова на языке Python.
alf='АВТОР'
print(int(''.join([str(sorted(alf).index(c)) for c in 'ВАТА']),len(alf))+1)
Приведём решение Юрия Красильникова на языке Python.
from itertools import product
print(sorted([''.join(p) for p in product('АВТОР', repeat=4)]).index('ВАТА')+1)
Приведём решение Сергея Донец на языке PascalABC.NET.
begin
'А, В, Т, О, Р, '.Remove(', ').Cartesian(4)
.Select(x -> x.JoinToString)
.Sorted.Numerate
.FirstOrDefault(\(n,s) -> s = 'ВАТА')
.Item1
.Println;
end.