Для двузначного числа определить, будет ли сумма цифр четным числом - VBA
Формулировка задачи:
Для двузначного числа определить, будет ли сумма цифр четным числом. Исходное двузначное число ввести с помощью InputBox с контролем ввода на числа. Вывод результата организовать с помощью MsgBox.
Решение задачи: «Для двузначного числа определить, будет ли сумма цифр четным числом»
textual
Листинг программы
Dim n$
aaa:
n = InputBox("Введите двузначное число")
If Len(n) <> 2 Then GoTo aaa
i = CInt(Left(n, 1)) + CInt(Right(n, 1))
If i / 2 - i \ 2 > 0 Then MsgBox "Сумма нечетная" Else MsgBox "Сумма четная"