Question

Составить программу для решения задачи: задайте целое число ; определите, является ли оно нечетным.

Answer 1

Program Free_Pascal;

var i:integer;

 

begin

 readln(i);

 if (i mod 10 = 1) then writeln('Нечетное'); 

readkey;

end.