В сообщении 16+8+4+4=32 символа. Вероятность появления символа А равна 16/32=1/2, символа Б 8/32=1/4, символов В и Г - 1/8. Следовательно, для минимизации длины сообщения (условие "б") самым коротким должен быть символ А, несколько длиннее может быть символ Б и самые длинные - символы В и Г. По этой причине вариант 4) с равной длиной кодов не рассматриваем. Далее, достаточно компактными выглядят коды в варианте 2), но А=0 и В=01 нарушают условие "а" (код 0 является началом кода 01). Остаются варианты 1) и 3) В варианте 1) нарушений условий нет. В варианте 3) код буквы Б 01 является началом кода буквы В 011 и это нарушает условие "а". ответ: 1)
2.) var x1, y1, x2, y2, n1, n2: real; begin write('x1, y1: '); read(x1, y1); write('x2, y2: '); read(x2, y2); n1:= sqrt(sqr(x1)+sqr(y1)); writeln(n1); n2:= sqrt(sqr(x2)+sqr(y2)); writeln(n2); if n1<>n2 then if n1<n2 then writeln('1 точка находится ближе к началу координат.') else writeln('2 точка находится ближе к началу координат.') else writeln('Точки находятся на равном расстоянии от начала координат.') end.
3.) var n, x, a, b, c, s: integer; beginwrite('Введите число: '); readln(n); if (n>99) and (n<1000) then begin write('Введите x: '); readln(x); a:= n div 100; b:= (n - a*100) div 10; c:= (n - a*100 - b*10); if a=x then s:=s+1; if b=x then s:=s+1; if c=x then s:=s+1; if s>0 then writeln('В числе есть ', x) else writeln('В числе нет ', x); end else writeln('Число не трехзначное'); end.
Следовательно, для минимизации длины сообщения (условие "б") самым коротким должен быть символ А, несколько длиннее может быть символ Б и самые длинные - символы В и Г. По этой причине вариант 4) с равной длиной кодов не рассматриваем. Далее, достаточно компактными выглядят коды в варианте 2), но А=0 и В=01 нарушают условие "а" (код 0 является началом кода 01). Остаются варианты 1) и 3)
В варианте 1) нарушений условий нет. В варианте 3) код буквы Б 01 является началом кода буквы В 011 и это нарушает условие "а".
ответ: 1)