Question

Дано натуральное число N определить четное или не четное? PascalABC​

Answer 1

var

 N:integer;

 begin

   read(N);

    if N>0 then

   if N mod 2=0 then write('Четное')

else write('Не четное')

else write('Число не натуральное');

 end.

Answer 2

Для определения, является ли заданное натуральное число N четным или нечетным в PascalABC, вы можете воспользоваться оператором деления по модулю (mod).

Вот пример кода на PascalABC, который позволяет определить четность числа:

pascalCopy code
program CheckEvenOdd;

var
  N: integer;

begin
  // Введите значение N
  write('Введите натуральное число N: ');
  readln(N);

  // Проверка на четность
  if N mod 2 = 0 then
    writeln(N, ' является четным числом.')
  else
    writeln(N, ' является нечетным числом.');
end.

В этом примере программа запрашивает у пользователя натуральное число N, а затем использует оператор деления по модулю (mod) для проверки четности. Если остаток от деления на 2 равен нулю, то число четное, иначе оно нечетное.