// Язык QBasic 4.5
CLS
INPUT"Введите Число: ",N
IF (N MOD 2)=0 THEN PRINT"Число Чётное"
ELSE PRINT "Число Нечётное"
END
// Язык QBasic 4.5
CLS
INPUT"Введите Число: ",N
IF (N MOD 2)=0 THEN PRINT"Число Чётное"
ELSE PRINT "Число Нечётное"
END