680n = 0kolvo_trevog = 14for bin in 1..2**30-1s = bin.to_s(2)next if s.include?(\"11\")i = 0for j in 0..s.sizei += 1 if s[j] == \"1\"endnext if i != kolvo_trevogs = (\"000000000000000000000000000000\" + s)[-30..-1]n += 1p [s, i, n] if n % 100 == 0endp [s, i, n]Решение комбинаторикой:Общая формула:C(T.H)+1Сначала расставим ТН... 12 объектов. Далее на места троеточий (13 мест) поставить оставшиеся 7 \"Н\". Задача \"7 яиц по 13 корзинкам\". Найдём количество способов:С(7.13+7-1)=С(7.19)=50388