условие Фано: ни один из кодов не является началом другого кода.
F=110
//Pascal ABC.NET 3.1 сборка 1219
Const
n=6;
Type
ty=array[1..n,1..n] of integer;
procedure inic(var ar:ty);
Var
i,j,k:integer;
begin
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
ar[i,j]:=0;
if not(odd(i)) then
begin
k:=k+2;
ar[i,k]:=1;
end;
end;
end;
<span>1)"_Зайку_ бросила хозяйка"
</span><span>2)" бросила хозяйка"
</span><span>3)" _бросила_ хозяйка"
</span><span>4)" хозяйка"
</span><span>5)" _хозяйка_"
</span>6)" "
<span>7)" хозяйка"
</span>8)" хозяйка <span><span>хозяйка</span>"
насчет кол-ва пробелов не уверенна
</span>
Образная информация - это вкусовые, обонятельные, осязательные ощущения, картины природы, живописи.
Запах цветов, сладкий вкус конфеты, мягкий ковер, красивый вид на горы.