Определите количество 12-ричных шестизначных чисел, в записи которых ровно одна
Приведём решение на языке Python.
count = 0
for x1 in "123456789AB":
for x2 in "0123456789AB":
for x3 in "0123456789AB":
for x4 in "0123456789AB":
for x5 in "0123456789AB":
for x6 in "0123456789AB":
s = x1+x2+x3+x4+x5+x6
if s.count("7") == 1:
if s.count("A") + s.count("B") <=3:
count += 1
print(count)
Ответ: 888669.
Приведём другое решение на языке Python.
from itertools import product
count = 0
for s in product("0123456789AB", repeat = 6):
if s.count("7") == 1 and s[0] != "0":
if s.count("A") + s.count("B") <=3:
count += 1
print(count)
Приведём решение Сергея Донец на языке PascalABC.NET.
begin
'0123456789xx'.Cartesian(6)//12-ричная 6-значных
.Where(s->s.CountOf('7')=1)
.Where(s->s.CountOf('x')<=3)
.Count(s->s[1] <> '0').Print;
end.