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

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

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

Найти все четырех знаные числа в интервале от 1000 до 9999,у которых первая цифра равна сумме трех последних.

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

textual
Листинг программы 
Private Sub Command1_Click()
Dim i As Integer, k As Integer
For i = 1000 To 9999 '1001 to 9900
If i \ 1000 = (i \ 100) Mod 10 + (i \ 10) Mod 10 + i Mod 10 Then
k = k + 1
List1.AddItem i
End If
Next i
List1.AddItem "-------------": List1.AddItem "vseho:" & k
End Sub

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

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

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

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