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