Вывести все пятизначные числа - VB
Формулировка задачи:
Вывести все пятизначные числа, которые делятся на 2, у которых средняя цифра нечетная, и сумма всех цифр делится на 4.
Решение задачи: «Вывести все пятизначные числа»
textual
Листинг программы
Private Sub Form_Load() For i = 10102 To 99998 Step 2 If Mid(i, 3, 1) And 1 Then If (Val(Mid(i, 1, 1)) + Mid(i, 2, 1) + Mid(i, 3, 1) + Mid(i, 4, 1) + Mid(i, 5, 1)) Mod 4 = 0 Then List1.AddItem i End If End If Next End Sub