Составить программу которая определяет какая из цифр: 0, чётная, нечетная, больше 10, нажата на клавиатуре( на паскале)
цифр больше или равных 10 не бывает... функция odd() Возращает True , если n нечетное, и False, если n четное
Var a,b:integer; begin writeln('Введите целое число: '); readln(a); b:= a mod 2; if b>0 then writeln('Число нечётное') else writeln('Число чётное'); if a>=10 then writeln('Число >=10') else writeln('Число =<10');<br>end.