Пожалуйста, помогите, срочно надо!Для клетки с координатами (x, y) в таблице размером M × N выведите координаты ее соседей. Сосе
Пожалуйста, помогите, срочно надо! Для клетки с координатами (x, y) в таблице размером M × N выведите координаты ее соседей. Соседними называются клетки, имеющие общую сторону. Решить надо в паскале!
Var n, m, x, y, i, j: integer; begin write('n=');readln(n); write('m=');readln(m); write('x=');readln(x); write('y=');readln(y);
for i := -1 to 1 do for j := -1 to 1 do if (i <> j) and (i <> -j) and (x+i>0) and (x+i<n+1) and (y+j>0) and (y+j<m+1) then writeln('(', x+i, ',', y+j, ')'); <span>end.</span>