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