Где-то в поле Робота находится прямоугольник неизвестного размера, в верхней стенке которого имеется отверстие шириной в одну клетку. Робот из верхнего левого угла поля должен дойти до прямоугольника и закрасить клетки внутри него по периметру, как показано на рисунке . Ещё учтите, что там три клетки сниз, а не четыре

если есть д ш и в то это не куб а параллелипипед

var 

a,b,c,r: real;

begin

readln(a,b,c,r);

if (2*r< a) and (2*r< b) and  (2*r< c)

then writeln('поместится')

else writeln ('не поместится');

end.

для куба достаточно одного условия (2*r< a) 

v=24*640*480 = 7372800 бит.

737200: 8 =   байт.

921 600: 1024 = 900 кб

900: 1024 = 0,88 мб

2 мб : 0,88 мб = 2,28.

количество страниц : 2

x на первом

у на втором

х+2=у

х+22=3у

отнимаем первое от второго

20=2у

у=10

х=у-2=8

const n=5; var m: array[1..n] of integer; i,a,b: integer; beginreadln(a,b); for i: =1 to n do readln (m[i]); for i: =1 to n doif i mod 2 = 0 then m[i]: =m[i]+aelse m[i]: =m[i]+b; for i: =1 to n dowriteln ('m[', i,']=', m[i]); end.