Прлверить , является ли трехзначное число нечетным в программе бейсик

Прлверить , является ли трехзначное число нечетным в программе бейсик
Гость
Ответ(ы) на вопрос:
Гость
Dim n As Integer n = InputBox("Введите число") If n And 1 Then MsgBox ("Число нечетное") Else MsgBox ("Число четное") End If
Не нашли ответ?
Ответить на вопрос
Похожие вопросы