Функция Odd в Pascal

Функция Odd в Pascal определяет какое число: четное или нечетное.

Синтаксис:

function odd(N : LongInt) : Boolean;

function odd(N : LongWord) : Boolean;

function odd(N : Int64) : Boolean;

function odd(N : QWord) : Boolean;

Если число нечетное, то функция Odd возвращает TRUE. В противном случае, возвращается FALSE.

Как определить чётное число в Pascal

Если в функцию Odd передано чётное число, то она возвращает FALSE. Поэтому, чтобы проверить, является ли число чётным, необходимо сравнить результат функции с FALSE:

if not Odd(x) then WriteLn(‘x — чётное число ‘);

Как определить нечётное число в Pascal

Если в функциюOdd передано нечётное число, то она возвращает TRUE. Поэтому, чтобы проверить, является ли число нечётным, необходимо сравнить результат функции с TRUE:

if Odd(x) then WriteLn(‘x — нечётное число ‘);

Пример программы, где применяется функция Odd:

programoddtest;

var x : Integer;

begin
Randomize;
x := Random(100);
if Odd(x) then //Если число нечётное
WriteLn(‘x = ‘, x, ‘ — odd number’)
else //Если число чётное
WriteLn(‘x = ‘, x, ‘ — even number’);

WriteLn(‘Press ENTER…’);

//Вывести числа от 1 до 8 в два столбца
for x := 1 to 8 do
if Odd(x) then Write(x, ‘ ‘)
elseWriteLn(x);

WriteLn(‘Then end. Press ENTER…’);
ReadLn;
end.