Составить программу, печатающую значение true, если указанное высказывание является истинным, и false – в

Составить программу, печатающую значение true, если указанное высказывание является истинным, и false – в противном случае. Ветвления и циклы не использовать Сумма цифр данного трехзначного числа N является четным числом

Sub Ex_3() Dim c1, c2, c3 As Integer Dim answ As Boolean ‘Число как строка символов, что бы без арифметики Dim CN As String CN = InputBox ("Укажите трехзначное число N") c1 = CInt (Mid(CN, 1, 1)) c2 = CInt (Mid(CN, 2, 1)) c3 = CInt (Mid(CN, 3, 1)) answ = ((c1 + c2 + c3) Mod 2) = 0 MsgBox CStr(answ) End Sub