Составить программу которая определяет какая из цифр: 0, чётная, нечетная, больше 10, нажата на клавиатуре( на паскале)

1
цифр больше или равных 10 не бывает...
функция odd() Возращает True , если n нечетное, и False, если n четное

Ответы и объяснения

2014-04-14T20:48:57+04:00
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');
end.