<span> 2*16=65536 бит =(/8) 8192 байт = (/1024) 8 Кбайт</span>
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3><h2>№52</h2>
begin
var x := ReadReal('x =');
var F: real;
if x <= 3 then F := x * x - 3 * x + 9
else F := 1 / (x * x * x + 6);
Print(F)
end.
<h2>№54</h2>
begin
var x := ReadReal('x =');
var F: real;
if x <= -3 then F := 9
else F := 1 / (x * x + 1);
Print(F)
end.
Чтобы это узнать надо числа 56 умножить на 12 и получится 672 символа было в тексте.
Много не точности. Длину массива сделал через ввод пользователя.
Скинул текстовый документ и саму программу.
-------------------------------------------------------------------------------------------------------
<span>Настоящий мастер — это вечный ученик.</span>