Могут ли два идущих подряд билета оказаться несчастливыми? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
