Решаем задачи Абрамян на Паскале. Boolean17

Boolean17. Дано целое положительное число. Проверить истинность высказывания: «Данное число является нечетным трехзначным».

Решение:

 program Boolean17;
var
 A: Integer;
begin
  Write('Введите число A: ');
  Readln(A);
  Writeln((A>99) And (A mod 2 > 0));
end.

program Boolean17;

var

A: Integer;

begin

Write('Введите число A: ');

Readln(A);

Writeln((A>99) And (A mod 2 > 0));

end.

Другие задачи из раздела Boolean можно посмотреть здесь.