Задача 1.Определить четность/нечетность числа, введённого пользователем (использовать операцию mod, которая находит остаток от деления).

Ответы:

Var     a,b,c:longint,

Begin 

read(a,b,c), 

if c mod 2=1 then 

writeln(Нечетное) else 

writeln(Четное), 

if ((c&gt,=a) and (c&lt,=b)) then 

writeln(YES) else 

writeln(NO),

End.