Являются ли поля (a, b) и (c, d ) шахматной доски полями одного цвета

@Lexa_sava · Регистрация: 13.06.2016

Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми: первое число — номер вертикали (при счете слева направо), второе — номер горизонтали (при счете снизу вверх). Даны натуральные числа a, b, c, d, каждое из которых не превосходит восьми. Определить, являются ли поля (a, b) и (c, d ) полями одного цвета.

@Puporev · 13.06.2016, 16:31

Pascal

var a,b,c,d:integer;
begin
repeat
writeln('ведите координаты двух полей от 1 до 8');
readln(a,b,c,d);
until(a in [1..8])and(b in [1..8])and(c in [1..8])and(d in [1..8])
and((a<>c)or(b<>d));
if(a+b)mod 2=(c+d)mod 2 then write('Одного цвета')
else write('Разного цвета')
end.

ФедосеевПавел · 13.06.2016, 18:52

Или

Pascal

  if odd(a+b) XOR odd(c+d) then
    writeln('Разного цвета')
  else
    writeln('Одного цвета');

@Lexa_sava 0 / 0 / 0 Регистрация: 13.06.2016 Сообщений: 3
		1
	Являются ли поля (a, b) и (c, d ) шахматной доски полями одного цвета 13.06.2016, 16:13. Просмотров 2799. Ответов 2 Метки нет (Все метки) Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми: первое число — номер вертикали (при счете слева направо), второе — номер горизонтали (при счете снизу вверх). Даны натуральные числа a, b, c, d, каждое из которых не превосходит восьми. Определить, являются ли поля (a, b) и (c, d ) полями одного цвета. 0

Опции темы

Являются ли поля (a, b) и (c, d ) шахматной доски полями одного цвета

Решение