Задача на Паскаль

[WitaliG]

Дана задача: Дано целое число А. Проверить истинность высказывания: Число А является нечетным.
var
a :integer;
rez :boolean;
begin
write('Введи a :');
readln(a);
rez:=(a div 2);
writeln('Результат : ',rez);
readln
end.
Компилятор к этой строке ( rez:=(a div 2); ) пишет: Нельзя преобразовывать тип INTEGER к BOOLEAN.
Подскажите пожалуйста, а как правильно.
Спасибо. С уважением Виталий.

[Niro]

Компилятор к этой строке ( rez:=(a div 2); ) пишет: Нельзя преобразовывать тип INTEGER к BOOLEAN.

Естественно.

rez:=(a div 2)

А какая логика у этой строки?
Собственно ответ:
Число нечётное, если при делении на два его остаток не равен нулю. В паскале можно проверить так:

if (a mod 2)<>0 then writeln('нечетное')

[Grag]

Сообщение от Niro

Число нечётное, если при делении на два его остаток не равен нулю. В паскале можно проверить так:

if (a mod 2)<>0 then writeln('нечетное')

или так, что, на мой взгляд, более красиво

if odd(a) 
  then //нечетное
  else //четное

[WitaliG]

Спасибо братцы за помощь. Но проблема в том, что условный оператор - это тема следующая. Эту задачу надо как-то решить с помощью типа BOOLEAN. Видимо есть какая-то цепочка размышлений, логическая.
Но как это выразить, вот это вопрос.
С уважением Виталий.

[Xeonc]

Не думаю, что тут хоть как-то можно решить задачу без условных операторов. Ибо BOOLEAN - может только сказать true или false. Но определить четность, он никак не может

[Niro]

Конечно не очень красивый вывод, но можно так

writeln('Введите число');
readln(a);
writeln('Введённое число нечётное - ',odd(a));

[Serge_Bliznykov]

думаю, ожидалось что-то такое:

  res := (a mod 2)<>0;
  WriteLn(res);

[WitaliG]

Спасибо за помощь. У меня код работает в таком виде:
var
a :integer;
rez :boolean;
begin
write('Введи a : ');
readln(a);
rez := ((a mod 2) = 1);
writeln('Результат : ',rez);
readln;
end.
С уважением Виталий.