Предмет: Информатика, автор: T4nguS

Даны координаты двух полей шахматной доски (координаты клетки - это 2 числа от 1 до 8: номер столбца и номер строки) Одного ли цвета эти клетки на шахматной доске? Вывести в выходной файл сообщение YES, если они одного цвета, и NO иначе

Ответы

Автор ответа: danulpopov
0
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.
Автор ответа: danulpopov
0
Не знаю, что за тестирующая система, которая 20 операций за 1.091 выполняет, но код молодого человека выше должен работатт
Автор ответа: danulpopov
0
ну не 20, конечно, а 100, но это сути не меняет
Автор ответа: T4nguS
0
1.09s
Автор ответа: danulpopov
0
10^8 Операций = 1 cекунда...
Автор ответа: T4nguS
0
слишком сложно
Похожие вопросы