Задания
Версия для печати и копирования в MS Word
Определите количество шестизначных чисел, записанных в девятеричной системе счисления, в записи которых ровно одна
Решение.
Приведём решение на языке Python.
from itertools import product
count = 0
for p in product("012345678", repeat=6):
if p.count("4") == 1 and p[0]!="0" and(p.count("1")+p.count("3") + p.count("5") + p.count("7"))==2:
count+=1
print(count)
Ответ: 53 760.
Приведём решение Сергея Донец на PascalABC.NET:
begin
'012345678'.Cartesian(6)
.Where(s->s.CountOf('4')=1)
.Where(s->
s.CountOf('1')+s.CountOf('3')+
s.CountOf('5')+s.CountOf('7')=2
).Count(s->s[1]<>'0').Print;
end.