Определите количество семеричных пятизначных чисел, которые начинаются с чётных цифр, не оканчивается цифрами 2 и 3 и содержит не менее двух цифр 1.
Приведём решение на языке Python.
from itertools import product as p
k = 0
for n in p('0123456', repeat=5):
x0, xn = n[0], n[-1]
if x0 != '0' and not int(x0)%2 and xn not in '23' and\
n.count('1') >= 2:
k += 1
print(k)
Ответ: 609.
Приведём решение Сергея Донец на языке PascalABC.NET.
begin
'0123456'.Cartesian(5) // 7-ричная 5-значных
.Where(s->s[1] <> '0') // Первой цифрой не может быть 0
.Where(s->s[1] in '246') // начинаются с чётных цифр 2,4,6
.Where(s->s.Last not in '23') // не оканчивается цифрами 2,3
.Where(s->s.CountOf('1')>=2) // не менее двух цифр 1
.Count.Print;
end.