Даны координаты двух полей шахматной доски (координаты клетки - это 2 числа от 1 до 8: номер столбца и номер строки) одного ли цвета эти клетки на шахматной доске? вывести в выходной файл сообщение yes, если они одного цвета, и no иначе
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.
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.