Главная » Статьи » Задачи из заказов » Заказ 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 |