zadach5.BAS

{* Задача 5 *}

REM basic

' Определение чётности или нечётности числа


CLS
INPUT "Введите число N=", N
If N Mod 2 Then PRINT "Число нечётное" Else PRINT "Число чётное"
End