[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи из заказов » Заказ 07.01.07 Pascal

Проверьте, что с первой заданной клетки можно попасть на вторую одним ходом короля.
{
-----------------------------------------------------------------------

2. Проверьте, что с первой заданной клетки можно попасть на вторую
одним ходом короля.

-----------------------------------------------------------------------
}

var
x1, y1, x2, y2 : longint;

begin
writeln('Задайте первую клетку короля X1, Y1 (через пробел):');
readln(x1, y1);
writeln('Задайте вторую клетку короля X2, Y2 (через пробел):');
readln(x2, y2);
if (abs(x1 - x2) <= 1) and (abs(y1 - y2) <= 1) then
writeln('С клетки (', x1, ' ', y1, ') на клетку (', x2, ' ', y2,
') можно попасть одним ходом короля')
else
writeln('С клетки (', x1, ' ', y1, ') на клетку (', x2, ' ', y2,
') нельзя попасть одним ходом короля');
end.
Категория: Заказ 07.01.07 Pascal | Добавил: solver (07.01.2007)
Просмотров: 1370