Слон

Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2%]

По заданным координатам слона и пешки определить, находится ли пешка под боем слона.

Входные данные:

Во входном потоке в первой строке через пробел заданы четыре целых числа (0 < A, B, C, D < 9). Первые пара чисел определяет координаты слона, вторая - координаты пешки.

Выходные данные:

Вывести YES или NO

Пример входного файла (input. txt) :

1 1 2 2

Пример выходного файла (output. txt) :

YES

Question

Информатика

Саня

6 февраля, 21:42

Слон

Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2%]

По заданным координатам слона и пешки определить, находится ли пешка под боем слона.

Входные данные:

Во входном потоке в первой строке через пробел заданы четыре целых числа (0 < A, B, C, D < 9). Первые пара чисел определяет координаты слона, вторая - координаты пешки.

Выходные данные:

Вывести YES или NO

Пример входного файла (input. txt) :

1 1 2 2

Пример выходного файла (output. txt) :

YES

+5

Ответы (1)

Знаете ответ на вопрос?

Галинуша · Answer 1

Var

A, B, C, D: integer;

f1, f2: Text;

begin

Assign (f1, 'input. txt') ;

Reset (f1) ;

Assign (f2, 'output. txt') ;

Rewrite (f2) ;

while not Eof (f1) do

begin

Readln (f1, A, B, C, D) ;

if Abs (A - C) = Abs (B - D) then writeln (f2,'YES')

else writeln (f2,'NO')

end;

Close (f1) ;

Close (f2)

end.