Четное/нечетное число - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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