А) Для списков с большим числом элементов лучше всего использовать нерекурсивный подход.
рекурсия действительно жрет много памяти и цпу, вообщем тормозит и все такое, особенно при больших объемах и лучше ее конечно разворачивать в цикл
<span />
Var x,y:real;
begin
writeln('x':4,'y':6);
x:=-2;
repeat
y:=-2.4*x*x+5*x-3;
writeln(x:4,y:8:2);
x:=x+0.5;
until x>2;
<span>end.</span>
Разница в длине сообщений составляет 20 - 6 = 14 символов
И на каждый символ приходится
42/14 = 3 байта
Но ответ просят в битах
3*8 = 24 бита
var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.