Напечатать числа, которые содержат ноль в среднем разряде - VB

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

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

Даны три трехзначных числа. Составить алгоритм подсчета количества и печати тех, которые содержат ноль в среднем разряде

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

textual
Листинг программы
Private Sub Command1_Click()
Dim A(1 To 3) As Integer, k As Integer
k = 0
For i = 1 To 3
  A(i) = InputBox("Введите число №" & i, "Ввод числа", "000")
  If IS_MID_NULL(A(i)) Then Print "Число №" & i & " имеет ноль в центре. Оно равно: " & A(i): k = k + 1
Next
Print "Всего чисел, имеющих ноль в середине: " & k
End Sub
Function IS_MID_NULL(NUMBER As Integer) As Boolean
Dim TMP As Integer
TMP = NUMBER \ 10
If TMP Mod 10 = 0 Then IS_MID_NULL = True Else IS_MID_NULL = False
End Function

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


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

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

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