Var
a,b : array[1..8, 1..8]of integer;
i, j,k, x, y, x1, y1:integer;
begin
k:=-1;
for i:= 1 to 8 do
begin
k:=-k;
for j:= 1 to 8 do
begin
a[i,j]:=k;
b[i,j]:=k;
k:= -k;
end;
end;
Readln(x,y);
Readln(x1,y1);
if (a[x,y] = b[x1,y1]) then Writeln('YES')
else Writeln('NO');
end.
int a = x;
int b = y;
int c;
c = a;
a = b;
b = c;
1.Присвоим переменной C значение из переменной a.
2.Присвоим a значение b.
3.Присвоим b значение переменный C.
Возможное решение:
Сначала расписываем набор переменных у.
Из 1 не может следовать 0
Расписываем значения для х :
если х1=0 то х2=0 или х2=1, но если х1=1, то х2=1.
подбираем для каждого набора х кол-во наборов у
1-7
2-6 т.к х6=1 и следовательно у6=1 и т.д
Итого 28