Question

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

Answer 1

var
x:integer;
begin
write('Введите число: ');
readln(x);
if x mod 2=1 then writeln('Да') else writeln('Нет');
end.