Счастливые билеты

Попробуем посчитать.
Сумма трёх цифр = 1. Три варианта 001, 010, 100. Таких билетов 3*3 = 9
Сумма = 2 Вариантов 6, билетов 36
Сумма = 3 Вариантов 9, билетов 81
Сумма = 4 Вариантов 12, билетов 144
Сумма = 5 Вариантов 21, билетов 441
Сумма = 6 Вариантов 28, билетов 784
Сумма = 7 Вариантов 36, билетов 1296
Сумма = 8 Вариантов 45, билетов 2025
Сумма = 9 Вариантов 55, билетов 3025
Сумма = 10 Вариантов 63, билетов 3969
Сумма = 11 Вариантов 69, билетов 4761
Сумма = 12 Вариантов 73, билетов 5329
Сумма = 13 Вариантов 75, билетов 5625
Сумма = 14 Вариантов 75, билетов 5625
Сумма = 15 Вариантов 73, билетов 5329
Сумма = 16 Вариантов 69, билетов 4761
Для суммы 17 - вариантов столько же. сколько для 10, для 18 - столько же, сколько для 9 и т. д.
Итого, всего билетов (9 + 36 + 81 + 144 + 441 + 784 + 1296 + 2025 +3025 + 3969 + 4761 + 5329 + 5625 ) * 2 + 1 = 55051 билет.

Вышедший родом из народа ошибся на 200 билетов.

Рассмотрим, как посчитать число вариантов для суммы 6. Её можно составить из цифр 6,0,0 - всего 3 варианта, или из цифр 5,1,0 - уже 6 вариантами, или как 4,2,0 - снова 6 вариантов, или 4,1,1 - 3 варианта, или 3,3,0 - 3 варианта, или 3,2,1 - 6 вариантов, или 2,2,2 - 1 вариант. То есть сумму 6 можно получить 28-ю вариантами. Для каждого варианта для суммы первых цифр = 6 можно выбрать свой вариант суммы последних 3 цифр равных 6, то есть всего таких билетов 28*28 = 784.
+1 неучтенный билет в конце - это билет 999999 ( парный ему 000000 с суммой 0 мы не считаем ).

Ответ : 55051 билет

55 251 билет

Dim i,st,dt,t,s,d,e,total as integer
total=0
For i=0 to 999999
st=i\100000
dt=(i-(st*100000))\10000
t=(i-(st*100000)-(dt*10000))\1000
s=(i-(st*100000)-(dt*10000)-(t*1000))\100
d=(i-(st*100000)-(dt*10000)-(t*1000)-(s*100))\10
e=i-(st*100000)-(dt*10000)-(t*1000)-(s*100)-(d*10)
If (st+dt+t)=(d+e+s) then
total=total+1
End if
Next i
Console.writeline(total)

В таком духе

55 251 билет. Зачем вам это?