17. Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8. Напишите программу на языке Паскаль, которая по введённым координатам двух полей (k, l) и (m, n) определяет, имеют ли эти поля один цвет. Для проверки правильности программы используйте тест:
Входные данные
Координаты 1-го поля >> 2 2
Координаты 2-го поля >> 3 3
Координаты 1-го поля >> 2 3
Координаты 2-го поля >> 3 3
Координаты 1-го поля >> 2 7
Координаты 2-го поля >> 5 4
Выходные данные
Поля одного цвета
Поля разного цвета
Поля одного цвета
Ответ
Программа на языке Паскаль для определения одинакового или разного цвета полей на шахматной доске:
program ChessBoard;
var
k, l, m, n: integer;
begin
writeln('Введите координаты 1-го поля:');
write('k = ');
readln(k);
write('l = ');
readln(l);
writeln('Введите координаты 2-го поля:');
write('m = ');
readln(m);
write('n = ');
readln(n);
if (abs(k - m) mod 2 = abs(l - n) mod 2) then
writeln('Поля одного цвета')
else
writeln('Поля разного цвета');
end.Пример вывода для тестовых данных:
Введите координаты 1-го поля:
k = 2
l = 2
Введите координаты 2-го поля:
m = 3
n = 3
Поля одного цвета
Введите координаты 1-го поля:
k = 2
l = 3
Введите координаты 2-го поля:
m = 3
n = 3
Поля разного цвета
Введите координаты 1-го поля:
k = 2
l = 7
Введите координаты 2-го поля:
m = 5
n = 4
Поля одного цвета