Задания
Версия для печати и копирования в MS Word
Тип 8 № 78064
i

Все 5⁠-⁠бук­вен­ные слова, в со­ста­ве ко­то­рых могут быть толь­ко буквы К, Р, О, В, А, Т, Ь, за­пи­са­ны в ал­фа­вит­ном по­ряд­ке и про­ну­ме­ро­ва­ны.

Вот на­ча­ло спис­ка:

1.  ААААА

2.  ААААВ

3.  ААААК

4.  ААААО

5.  ААААР

6.  ААААТ

...

Под каким но­ме­ром в спис­ке идёт по­след­нее слово c нечётным но­ме­ром, ко­то­рое со­дер­жит не более одной буквы Т, две буквы В и не со­дер­жит букв Ь, сто­я­щих рядом?

Спрятать решение

Ре­ше­ние.

При­ведём ре­ше­ние на языке Python.

from itertools import product

count = 0

m = []

for p in product(sorted("КРО­ВАТЬ"), repeat=5):

count += 1

s = ''.join(p)

if count%2 != 0 and ("ЬЬ" not in s) and s.count("В") == 2 and s.count("Т") <= 1:

m.append(count)

print(max(m))

 

Ответ: 16277.

 

При­ведём ре­ше­ние Сер­гея Донец на языке PascalABC.NET.

begin

'К, Р, О, В, А, Т, Ь, '.remove(', ')

.Sorted.JoinToString

.Cartesian(5).Numerate

.Where(\(n,s)-> (n mod 2 = 1)) // c нечётным но­ме­ром

.Where(\(n,s)-> s.CountOf('Т') <= 1) // не более одной буквы Т

.Where(\(n,s)-> s.CountOf('В') = 2) // две буквы В

.Where(\(n,s)-> not s.isMatch('[Ь][Ь]') ) // не со­дер­жит букв Ь, сто­я­щих рядом

.Last // (16277,ЬТОВВ) // по­след­нее слово

.Item1 // 16277 // номер ис­ко­мо­го слова

.Print;

end.


Аналоги к заданию № 78033: 78064 Все