Даны координаты поля шахматной доски x, y (целые числа, лежащие в диапазоне 1–8). Учитывая, что левое нижнее поле доски (1, 1) является черным, проверить истинность высказывания: «Данное поле является белым» — Pascal(Паскаль)

Program Boolean34;

Var
  x, y: Integer;

Begin
  ReadLn(x, y); { если (y+x) mod 2=0 то поле черное, иначе - поле белое }
  WriteLn(Not((y + x) Mod 2 = 0));

end.

Leave a Comment