Определите, является ли данное число чётным или нечётным (написать в Pascal).

Для того чтобы определить, является ли число чётным или нечётным в языке Pascal, можно использовать оператор деления по модулю. Если число делится на 2 без остатка, оно чётное, иначе — нечётное.

Вот пример программы на Pascal, которая определяет, чётное ли число:

pascal
Копировать код
program EvenOdd;
var
  num: Integer;
begin
  Write('Введите число: ');
  ReadLn(num);
  if (num mod 2 = 0) then
    WriteLn('Число чётное')
  else
    WriteLn('Число нечётное');
end.

В этой программе:

1. Вводится целое число num.

2. С помощью оператора mod проверяется, делится ли число на 2 без остатка:

   • Если остаток от деления на 2 равен 0, то число чётное, и выводится сообщение "Число чётное".

   • Если остаток не равен 0, число нечётное, и выводится сообщение "Число нечётное".

Таким образом, программа правильно определяет чётность числа.