Question

Нужно решить задачу на eolymp №8865 Pascal (fpc 3.2)

Answer 1

program even_parity;

var

 x, y, m: integer;

begin

 readln(x, y, m);

 if ((x mod 2 = 0) and (y mod 2 = 0)) or ((x mod 2 <> 0) and (y mod 2 <> 0)) then

   writeln(1)

 else

   writeln(0);

end.

В этом решении мы считываем значения x и y из входной строки, а также игнорируем третье число m. Затем мы проверяем, имеют ли x и y одинаковую четность с помощью операции mod, которая вычисляет остаток от деления на 2. Если оба числа четные или оба нечетные, мы выводим 1, иначе мы выводим 0.

Надеюсь, это поможет вам решить данную задачу!