Слон

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

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

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

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

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

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

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

1 1 2 2

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

YES

Question

Информатика

Мавродий

30 сентября, 20:22

Слон

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

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

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

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

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

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

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

1 1 2 2

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

YES

+3

Ответы (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.