Мне кажется, подходить к решению задачи проще с верха ели. Так как такой способ даст отличный шанс в манипулировании нижними числами, чтобы не допустить нулей. Тем более, что представленные нижние числа - лишь для пояснения.
Итак вариант второго ряда, который мне нравится: 57389
На третий ряд 698536
На четвертый 2453215
На пятый 75967569
На шестой 987243245
И на нижний 3625776687
Как видно с образцом не совпадает, вроде как и не требуется, но очень хочется проверить, есть ли решение, совпадающее с образцом полностью.
Для этого можно воспользоваться экселем, например.
Формулы довольно просты. Например, A1=ЕСЛИ(A2+B2>9;A2+B2-10;A2+B2). Так для всех строк, кроме седьмой. В ячейки с D7 по J7 вставлены формулы D7 = ПСТР($L$2;1;1)*1 (эта формула возвращает элемент числа в ячейке L2: первый второй и так далее до седьмого). Таким образом нам нужно лишь пройти по циклу, увеличивая каждый раз число в ячейке L2 на единицу с 1111111 до 9999999.
Например, такой код макроса вполне с этим справится:
Sub макрос()
row_answer = 20 ' строка, с которой запишется ответ
Cells(2, 12) = 1111111
While Cells(2, 12) < 10000000
If Cells(1, 12) = 2017 And Cells(3, 12) <> 0 Then
i = 1
While i < 11
Cells(row_answer, i) = Cells(7, i)
i = i + 1
Wend
row_answer = row_answer + 1
End If
Cells(2, 12) = Cells(2, 12) + 1
Wend
End Sub
В результате - 17 ответов для нижней строки елки:
То есть всего ровно 17 ответов, совпадающих с представленным образцом.
Один из них для визуальности на самой елке: