Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8. Напишите программу, которая по введённым координатам двух полей (k, l) и (m, n) определяет, являются ли эти поля полями одного цвета

Пользуйся

Объяснение:

//fpc 3.0.0

program CheckColour;

var

k,l,m,n,kmod,lmod,mmod,nmod,klflag,nmflag: integer;

begin

kmod:=0;

lmod:=0;

mmod:=0;

nmod:=0;

klflag:=0;

nmflag:=0;

read(k, l, m, n);

kmod := (k mod 2);

lmod := (l mod 2);

mmod := (m mod 2);

nmod := (n mod 2);

//writeln(k, l, m, n);

//writeln(kmod, lmod, mmod, nmod);

klflag:=(kmod xor lmod);

nmflag:=(nmod xor mmod);

//writeln(klflag, nmflag);

if klflag = nmflag then writeln(true)

else writeln(false);

end.

Input 2 3 5 7

output FALSE

Клетка 1, 1 - черная