Надо! для клетки с координатами (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, ')'); end.

от +10 до +30 21 значение, n=21

используем формулу n=2^i

тогда i=5бит (с избытком) 1измерение

сделано 27измерений, 27*5=135бит

ответ: 135 бит.

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.