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