Могут ли два идущих подряд билета оказаться несчастливыми? - Visual Basic .NET
Формулировка задачи:
Назовем автобусный билет несчастливым, если сумма цифр его шестизначного номера делится на 13. Могут ли два идущих подряд билета оказаться несчастливыми?
Решение задачи: «Могут ли два идущих подряд билета оказаться несчастливыми?»
textual
Листинг программы
m = -1 For a = 0 To 9 For b = 0 To 9 For c = 0 To 9 For d = 0 To 9 For e = 0 To 9 For f = 0 To 9 n = (a + b + c + d + e + f) Mod 13 If n = 0 Then If m = 0 Then Debug.Print ((a & b & c & d & e & f) - 1 & " " & a & b & c & d & e & f) End If End If m = n Next Next Next Next Next Next