Есть разные целые типы, но тебе подходит ShortInt: от -128 до 127
А умножить или прибавить??
Var x,y:real;
begin
write('x = ');
readln(x);
if x<=-20
then y:=3*x*x*x
else if x<=30 then y:=abs(x) else y:=30;
writeln('y = ',y);
end.
Пример:
x = -5
y = 5
0.5 Мб = 1024²/2 = 524288.
Делим на 524287 и получаем округленно 1.
Следовательно, адресоваться можно с точностью до 1 байта - это и есть размер машинного слова.
Адреса слов - от 0 до 524287 - всего 524288 слов.
Ответ: 1 байт.