Question

Составьте программу,
которая определяет, является ли введенное целое число нечетным, и выводит на
экран соответствующее сообщение: «Да, число нечетное» или «Нет, число четное».

Answer 1

program oddNumber;var a:integer;
begin
writeln('Правда ли то число нечетное?');
write('Введите число: ');
readln(a);
if(odd(a)) then writeln('Да,число нечетное') else writeln('Нет, число четное');
end.