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

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

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

Добрый день. Пожалуйста помогите с решением маленькой задачи. Задача: Найти все трехзначные числа,вторая цифра которых равна сумме первой и третьей цифры. Пример по которому нужно решить:
Листинг программы
  1. Private Sub Command1_Click()
  2. Do
  3. t = t + 1
  4. s1 = 100 + 3 * t
  5. s2 = 2 * Exp(t)
  6. Loop Until s1 < s2
  7. MsgBox t
  8. End Sub
Очень прошу, помогите!

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

textual
Листинг программы
  1. Option Explicit
  2. Private Sub Command1_Click()
  3.     Dim j As Integer, i As Integer, s As String
  4.     For i = 1 To 9
  5.         For j = 0 To 9 - i
  6.            s = s & i & (i + j) & j & vbCrLf
  7.         Next j
  8.     Next i
  9.     MsgBox s
  10. End Sub

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


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

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

15   голосов , оценка 3.8 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы