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

1

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

2013-04-09T14:19:02+00:00

var

  a: integer;

 

begin

  writeln('Введите целое число');

  readln(a);

  if a mod 2 = 1 then writeln('Число нечетное')

  else writeln('Число четное');

end.