Написать программу по определению Четности или Нечетности числа. Число вводится с клавиатуры.Дам 17+9 бала
На паскале:
var a:integer;
begin
writeln('Введите целое положительное число');
read(a);
if a mod 2 = 0 then writeln('Число чётное')
else writeln('Число нечётное');
end.