по каналу связи передаются сообщения, содержащие заглавные буквы кириллицы для передачи используется не правильный двоичный код. Для букв А,Б,В и Г используется кодовое слово 101, 110, 100, 111 соответственно. Укажите минимальную сумму длин кодовых слов для букв Д и Е , при котором код будет удовлетворять условию Фано

1. Решение "по-взрослому"

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var F:real->real:=x->2*x*x-6*x+8;
  var a,b:real;
  Write('a b= '); Read(a,b);
  Writeln('Min=',Range(a,b,9).Select(x->F(x)).Min)
end.

Пример
a b= -2 6
Min=3.50617283950617

2. Решение "по-школьному" ("дедушкин метод")

function F(x:real):real;
begin
  F:=2*x*x-6*x+8
end;

var
  a,b,y,h,min:real;
  i:integer;
begin
  Write('a b= '); Read(a,b);
  h:=(b-a)/9;
  min:=F(a);
  for i:= 1 to 9 do begin
    y:=F(a+i*h);
    if y<min then min:=y
    end;
  Writeln('Min=',min)
end.

Пример
a b= -2 6
Min=3.50617283950617

Всё элементарно!
Давайте посчитаем скорость передачи без сжатия:

Объём файла: 60Мб
Скорость передачи: 222бит/сек

Для начала переведем 60мб в биты:

60*1024 = 61440 кбт
61440*1024=62914560 байт
62914560*8=503316480 бит

А теперь посчитаем за сколько времени передастся файл без сжатия:
503316480/222=2267191,35 секунд

Отлично, теперь получим размер сжатого файла:
503316480*0,7=352321536 бит

А передастся файл за:
352321536/222=1587033,95 секунд

Но мы не учли скорость архивации и разархивирования:
1587033,95 + 15 + 7 = 1587055,95 секунд

Ну и видно, что файл даже с временем на сжатие будет передан быстрее.