Фрагмент программы (переменные a и n целые) паскаль си a : = 0; a : = a + n div 1000; a : = a + (n div 100) mod 10; a : = a + (n div 10) mod 10; a : = a + n mod 10; a = 0; a = a + n / 1000; a = a + (n / 100) % 10; a = a + (n / 10) % 10; a = a + n % 10;

Итак первые два символа кодируются кодовыми словами 0 и 10. Найдём для остав­ших­ся трех сим­во­лов наи­бо­лее ко­рот­кое пред­став­ле­ние, удо­вле­тво­ря­ю­щее усло­вию Фано. Из двузначных чисел можно взять 11, но тогда невозможно подобрать трехзначное число для четвертого символа, по этому не берем. Единственное подходящее трехзначное число - 110 (111 не подходит по той же причине. что и 11). Аналогично выбираем числа 1110 и 11110. 
В итоге получается ряд: 0, 10, 110, 1110, 11110.
Общая длина = 1+2+3+4+5=15 

program array3;

const

 L = 1;

 H = 10;

var

 n, i, s: Integer;

 A1, A2, A3: array [L..H] of Integer;

begin

 Randomize;

 for i := L to H do begin

   A1 [i] := Random (10);

   A2 [i] := Random (10);

   A3 [i] := Random (10);

 end;

 WriteLn ('Первый массив:');

 for i := L to H do

   Write (A1 [i], ' ');

 WriteLn;

 WriteLn ('Второй массив:');

 for i := L to H do

   Write (A2 [i], ' ');

 for i := L to H do

   if (i < 2) or (i > 7) then

     A3 [i] := A1 [i]

   else

     A3 [i] := A2 [i];

 WriteLn;

 WriteLn ('Результирующий массив:');

 for i := L to H do

   Write (A3 [i], ' ');

 WriteLn;

 ReadLn;

end.

Объяснение:

const

 L = 1;

 H = 10;

устанавливаются размерности для массивов, здесь можно их изменить