Найти все трехзначные числа, вторая цифра которых равна сумме первой и третьей цифры - VB (60790)

Узнай цену своей работы

Формулировка задачи:

найти все трехзначные числа, вторая цифра которых равна сумме первой и третьей цифры

Решение задачи: «Найти все трехзначные числа, вторая цифра которых равна сумме первой и третьей цифры»

textual
Листинг программы
Private Sub Command1_Click()
    Text1.Text = ""
    For i = 100 To 999 Step 1
        If (((i Mod 10) + (i \ 100)) = ((i \ 10) Mod 10)) Then
            Text1.Text = Text1.Text + CStr(i) + vbCrLf
        End If
    Next i
End Sub

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


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

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

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