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