Вывести все пятизначные числа - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.643 из 5
Похожие ответы