Нужен ответ по предмету Информатика

Везде, начиная с того что даже f написана не верно
вот рабочий код. Формулы брались на вики, потому что в ваших я сомневаюсь весьма

function F(x: real): real;
begin
    f := sqr(sqr(x)) * x + 3 * sin(x) - 3 * sqr(x) - 12;
end;

function FindRoot(a, b, epsilon: real): real;
begin
    while(abs(b - a) > epsilon) do
    begin
        a := b - (b - a) * f(b) / (f(b) - f(a));
        b := a + (a - b) * f(a) / (f(a) - f(b));
        writeln(a, ' ', b);
    end;
   
    FindRoot := b;
end;

begin
    writeln('x = ', FindRoot(0.5, 1.5, 0.001));
end.

задача1

запишем условие: I=357 байт , К=500, N=?, i=?

решение: выразим информационный объем сообщения в битах

I=357*8=2856 бит

найдем вес одного символа i=I/K=2856/500=5.712 бит

по таблице нецелых степеней числа 2 найдем мощность алфавита -52

задача2

запишем условие: N=64, страниц=3, строк=40, символов=60, I=?

решение: найдем общее количество символов во всем тексте

К=3*40*60=7200

вычислим вес одного символа алфавита: N=2^i, 64=2^i, 2^6=2^i, i=6 бит

вычислим информационный объем текста: I=K*i=7200*6=43200 бит=5400 байт