Последовательность четных и не четных чисел - 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

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

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