Определить количество чисел — равных 5 - VB
Формулировка задачи:
ввести с клавиатуры 15 чисел. Определить количество чисел
-равных 5
-равных -5
-четных чисел
результат вывести на экран
Решение задачи: «Определить количество чисел — равных 5»
textual
Листинг программы
Dim C1 As Byte, C2 As Byte, C3 As Byte, i As Byte, C As Single
For i = 1 To 15
C = Val(InputBox(i))
If C = 5 Then
C1 = C1 + 1
ElseIf C = -5 Then
C2 = C2 + 1
ElseIf C Mod 2 = 0 Then
C3 = C3 + 1
End If
Next i
MsgBox ("=5: " & C1 & Chr(13) & "=-5: " & C2 & Chr(13) & "Чётных: " & C3)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д