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.
Answers & Comments
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.
Надеюсь, это поможет вам решить данную задачу!