Задания
Версия для печати и копирования в MS WordОпределите количество 14-ричных шестизначных чисел, в записи которых содержится не менее одной цифры 4 и ровно две цифры с числовым значением, превышающим 10, причём стоящие рядом.
Решение.
Приведём решение на языке Python.
from itertools import product
count = 0
for i in product("0123456789Axxx", repeat = 6):
s = ''.join(i)
if s.count("4") >= 1 and s[0] != "0":
if s.count("x") == 2 and "xx" in s:
count += 1
print(count)
Ответ: 196929.
Приведём решение Сергея Донец на языке PascalABC.NET.
begin
'0123456789axxx'.Cartesian(6)
.Where(s->s[1] <> '0')
.Where(s->s.CountOf('4')>=1)
.Where(s->s.CountOf('x')=2)
.Where(s->s.IsMatch('[x][x]'))
.Count.Print;
end.

