Найти все трехзначные числа, вторая цифра которых равна сумме первой и третьей цифры - VB (169859)
Формулировка задачи:
Добрый день. Пожалуйста помогите с решением маленькой задачи.
Задача: Найти все трехзначные числа,вторая цифра которых равна сумме первой и третьей цифры.
Пример по которому нужно решить:
Очень прошу, помогите!
Листинг программы
- Private Sub Command1_Click()
- Do
- t = t + 1
- s1 = 100 + 3 * t
- s2 = 2 * Exp(t)
- Loop Until s1 < s2
- MsgBox t
- End Sub
Решение задачи: «Найти все трехзначные числа, вторая цифра которых равна сумме первой и третьей цифры»
textual
Листинг программы
- Option Explicit
- Private Sub Command1_Click()
- Dim j As Integer, i As Integer, s As String
- For i = 1 To 9
- For j = 0 To 9 - i
- s = s & i & (i + j) & j & vbCrLf
- Next j
- Next i
- MsgBox s
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д