Последовательность четных и не четных чисел - VB
Формулировка задачи:
Дана последовательность чисел. Нужно определить, соблюдается ли последовательность чередования четных и не четных цифр (то есть, если это 123456, то соблюдается, а если 12356 то не соблюдается)
Решение задачи: «Последовательность четных и не четных чисел»
textual
Листинг программы
- Option Explicit
- Private Sub Command1_Click()
- MsgBox IIf(f(InputBox("Введите последовательность", "", "12356")), "", "не ") & "соблюдается"
- End Sub
- Function f(s) As Boolean
- Dim a As Integer, i As Integer
- f = True: a = Mid(s, 1, 1) Mod 2
- For i = 2 To Len(s)
- a = a Xor 1
- If Mid(s, i, 1) Mod 2 <> a Then f = False: Exit Function
- Next i
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
