Задания
Версия для печати и копирования в MS Word
Сколько существует различных пятизначных чисел, записанных в двенадцатеричной системе счисления, в записи которых есть только три чётные цифры, причём одинаковые и стоящие рядом?
Решение.
Приведём решение на языке Python.
from itertools import product
otv = 0
for i in product('0123456789ab', repeat=5):
if i[0] != '0':
cet = [x for x in i if x in '02468a']
if len(set(cet)) == 1 and len(cet) == 3:
if cet[0]*3 in ''.join(i):
otv += 1
print(otv)
Ответ: 612.
Приведём решение Сергея Донец на языке PascalABC.NET.
begin
'0123456789ab'.Cartesian(5)
.Where(s-> s.IsMatch('([02468a])\1{2}'))
.Where(s-> s.Count(c->c in'02468a') = 3)
.Count(s-> s[1] <> '0').Print;
end.