Нужна с решением данной работы. вариант 2.

без остатка нет

25: 2=12+1 клетка в остатке

2^i = 128

i = 7 бит

800 * 7 = 5600 бит

5600 : 8 = 700 байт

700 : 1024 = 0,684 килобайт.

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.

восемь бит - как раз 256 ячеек