Для кодирования некоторой последовательности, состоящей из букв а, б, в, г, д, е решили использовать неравномерный двоичный код, удовлетворяющий условию фано. для буквы а использовали кодовое слово 01, для буквы е – кодовое слово 10. какова наименьшая возможная суммарная длина всех шести кодовых слов? как делать это ?

На картинке указаны предполагаемые значения кодов
Тогда получается, что А и Е имеют кодовые слова длинной 2, остальные 4 буквы имеют кодовые слова длинной 3
2*2+3*4 = 16

Procedure GetAB(x: integer; var a: integer; var b: integer);
begin
    a := 0;
    b := 1;
    while x > 0 do
    begin
        a := a + 1;
        b := b * (x mod 100);
        x := x div 100;
    end;
end;

var
    x, a, b: integer;

begin
    for x := 10000 to 2000000000 do
    begin
        GetAB(x, a, b);
        if (a = 3) and (b = 18) then
            Println(a, b, x);
    end;
end.

выдает такие значения
3 18 10118
3 18 10209
3 18 10306
3 18 10603
3 18 10902
3 18 11801
3 18 20109
3 18 20303
3 18 20901
3 18 30106
3 18 30203
3 18 30302
3 18 30601
3 18 60103
3 18 60301
3 18 90102
3 18 90201
3 18 180101

Выделенное наибольшее

1) ответ: 12

a 1 2 3

b 1 2 4

2) ответ: i = 30

3) ответ: б), потому что условие проверяется перед началом работы очередного круга цикла.

3 (???) ) ответ: 2 раза. В ходе работы цикла переменная p должна стать равной 0.02

4) ответ: г)

Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен нулю, потом ему прибавляется в значении по единице, пока i не станет равным пяти (0,1,2,3,4,5). Итого к S прибавляется единица шесть раз.

Снизу практически анологично. Это максимально тупо, что просите объяснения к таким простым вопросам.

5) ответ: г)

Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен -1, потом ему прибавляется в значении по единице, пока i не станет равным 2 (-1,0,1,2). Итого к S прибавляется единица 4 раза.