Boolean38. Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Слон за один ход может перейти с одного поля на другое».
>
Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | program Boolean39; var x1,y1,x2,y2: Integer; begin Write('Введите 1 координату 1 клетки шахматной доски: '); Readln(x1); Write('Введите 2 координату 1 клетки шахматной доски: '); Readln(y1); Write('Введите 1 координату 2 клетки шахматной доски: '); Readln(x2); Write('Введите 2 координату 2 клетки шахматной доски: '); Readln(y2); Writeln(((x1-x2)=(y1-y2)) or ((x1-x2)=(-1)*(y1-y2)) or (x1=x2) or (y1=y2)); end. |
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | #include <stdio.h> int main(void) { int x1,y1,x2,y2; printf("x1:"); scanf ("%i", &x1); printf("y1:"); scanf ("%i", &y1); printf("x2:"); scanf ("%i", &x2); printf("y2:"); scanf ("%i", &y2); printf("%d\n",abs(x1-x2)==abs(y1-y2) | (x1==x2) | (y1==y2)); return 0; } |