Слон Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2%] По заданным координатам слона и пешки определить, находится ли пешка под боем слона. Входные данные: Во входном потоке в первой строке через пробел заданы четыре це...

Слон Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2%] По заданным координатам слона и пешки определить, находится ли пешка под боем слона. Входные данные: Во входном потоке в первой строке через пробел заданы четыре целых числа (0 < A, B , C, D < 9). Первые пара чисел определяет координаты слона, вторая - координаты пешки. Выходные данные: Вывести YES или NO Пример входного файла (input.txt): 1 1 2 2 Пример выходного файла (output.txt): YES
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы