Требуется определить, бьет ли КОНЬ, стоящий на клетке с указанными
координатами (номер строки и номер столбца), фигуру, стоящую на другой
указанной клетке.
Вводятся четыре числа: координаты КОНЯ (два числа) и координаты другой
фигуры (два числа). Координаты вводятся парами, каждая пара в отдельной
строке. Координаты - целые числа в интервале от 1 до 8.
Требуется вывести слово YES, если КОНЬ сможет побить фигуру за 1 ход
и NO - в противном случае.
Примеры:
1) входные данные
1 1
3 3
выходные данные
NO
2) входные данные
1 1
3 2
выходные данные
YES
3) входные данные
1 1
1 4
выходные данные
NO
Замечание 1: КОНЬ ходит русской буквой «Г» (или латинской «L»).
Замечание 2: как вводить 2 значения в одной строке через Пробел НА ПИТО
begin
var m:=ReadInteger('Количество элементов в массиве А (m):');
var n:=ReadInteger('Количество элементов в массиве B (n):');
var k:=ReadInteger('Позиция вставки k (1<k<m):');
if (k>1) and (k<m) then begin
var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
Writeln('Результат вставки'); (a[:k]+b+a[k:]).Println
end
else Writeln('Вы нарушили условие 1<k<m')
end.
Тестовое решение
Количество элементов в массиве А (m): 10
Количество элементов в массиве B (n): 6
Позиция вставки k (1<k<m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Результат вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26