Четное/нечетное число - VB

Формулировка задачи:

Задача звучит так: Написать программу, которая проверяет целые числа на четность. В программе проверять, будет ли вводимое число целым. Результат вывести в виде текстового сообщения True или False. Не совсем правильно работающий код:

 Dim N As Integer
        If (N / 2) = Int(N / 2) Then
            MsgBox("True")
        Else : MsgBox("False")
        End If

Когда ввожу нечетное число, все равно True пишет. В чем проблема?

Решение задачи: «Четное/нечетное число»

textual
                            Листинг программы 
                        

                            Dim N As Integer
N = 4
        If (N Mod 2) Then
            MsgBox "False"
        Else: MsgBox "True"
        End If
                        

Оцени полезность:

14 голосов , оценка 4.071 из 5

Похожие ответы