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