Даны координаты двух полей шахматной доски (координаты клетки - это 2 числа от 1 до 8: номер столбца и номер строки) Одного ли цвета эти клетки на шахматной доске? Вывести в выходной файл сообщение YES, если они одного цвета, и NO иначе
1 1 && 2 2
Пардон, не правильно прочитал код*
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.
Можно ли сократить код программы для ускорения?
Для ускорения чего? Работает за O(0), проще говоря мгновенно
1.091s(надо меньше секунды)
var x, y, x1, y1:integer; begin Readln(x,y); Readln(x1,y1); if (x + y)mod 2 = (x1 + y1)mod 2 then Writeln('YES') else Writeln('NO'); end.
Не знаю, что за тестирующая система, которая 20 операций за 1.091 выполняет, но код молодого человека выше должен работатт
ну не 20, конечно, а 100, но это сути не меняет
1.09s
10^8 Операций = 1 cекунда...
слишком сложно