Ответ:
6
Объяснение:
Условие Фано означает, что ни одно кодовое слово не является началом другого кодового слова.
Мы можем начать наш код либо с нуля, либо с единицы, значит, чертим два дерева. Если мы закодируем букву нулём или единицей, для других букв не будет выполняться условие Фано, поэтому нужно добавить ноль или единицу (на каждом дереве появилось две ветки). 10 мы не можем использовать, так как с него начинается кодовое слово буквы А. Кратчайшие кодовые слова - 00, 01, 11. Сумма длин равна 2 * 3 = 6
Var
i,sum:Integer;
Begin
for i:=5 to 101 do
begin
if (i mod 2 <> 0) sum:=sum+i;
end;
Writeln(sum);
end.
Возможно будут. Я не уверена хоть я и в 4 классе
Var godA, godO, godL,ctar:integer;
begin
wrietln("A");readln(godA);
wrietln("O"); readln(godO);
wrietln("L"); readln(godL);
if (godA<godO) then ctar =<span>godO else ctar = godA;
</span>if (ctar<godL) then write("Сред:",ctar," Стар:",godL ) else
if(godA<godL) then write("Сред:",godL," Стар:",ctar) else
write("Сред:",<span>godA</span>," Стар:",ctar);
end;
А,г лишнее потому что они не являются дорожными указателями