Какие существуют возможности у табличного процессора для решения задачи линейного программирования

Задание 1 во вложении.

Задание2.

const
  m = 20;{максимальное количество элементов}

var
  a: array[1..m] of real;
  i, n: integer;

begin
  Write('Введите количество элементов (от 1 до 20): ');
  Readln(n);
  Writeln('Вводите через пробел элементы массива');
  for i := 1 to n do
  begin
    Read(a[i]);
    a[i] := sqr(a[i])
  end;
  Writeln('Результирующий массив:');
  for i := 1 to n do Write(a[i]:0:4, ' ');
  Writeln
end.

Тестовое решение:

Введите количество элементов (от 1 до 20): 5
Вводите через пробел элементы массива
1.3 2.7 -4 4.23 0
Результирующий массив:
1.6900 7.2900 16.0000 17.8929 0.0000

1. Определим количество символов в тексте.
3х25х65=4875
2. Определим объем сообщения в битах.
1125х8=9000
3. Определим количество битов, отводимых для одного символа
9000/4875=1.846
Следовательно, или в условии задачи содержится ошибка, или разные символы кодируются разным количеством битов (1 и 2). Но при кодировании разным количеством битов возникает вопрос о разделении битов на символы. Вопрос решается применением специального вида кодировок. В нашем случае могут быть использованы коды 0,10,11. Т.е. встречается 1, то будут использованы два бита, а если встретился 0 - то один бит. Алфавит в этом случае будет состоять из ТРЕХ символов (комбинация 00 не используется).

ответ: мощность алфавита три символа.