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