Для передачи сообщений используется алфавит из 32 прописных букв (не используется «ъ»). все передаваемые - id510540020220731 от sab005 31.07.2022 09:13

Question

Информатика: Для передачи сообщений используется алфавит из 32 прописных букв (не используется «ъ»). все передаваемые слова содержат ровно по 7 букв. каждое передаваемое слово начинается с одной из восьми букв (а, б, к, л, м, н, c, т) и заканчиваться с одной из четырех (р, о, ф, с). остальные буквы в каждом слове могут быть любыми из используемого алфавита. какое количество информации (в битах) несет произвольная фраза из 10 слов, если для ее кодирования использовалось минимальное количество бит в рамках описанных

sab005 · Accepted Answer

Var
max,min,i,x:integer;
m:array[10..20] of integer;
begin
min:=10;
max:=10;
randomize;
for i:=10 to 20 do m[i]:=random(10)+10;
for i:=10 to 20 do write(m[i],' ');
writeln;
for i:=10 to 20 do
begin
if ( m[i] mod 2) = 0 then m[i]:=m[i]+1;end;
for i:=10 to 20 do write(m[i],' ');
writeln;
end.
2)

var
max,min,i,x:integer;
m:array[10..20] of integer;
begin
min:=10;
max:=10;
randomize;
for i:=10 to 20 do m[i]:=random(10)+10;
for i:=10 to 20 do write(m[i],' ');
writeln;
for i:=10 to 20 do
begin
if ( m[i] mod 2) = 0 then m[i]:=0 else m[i]:=m[i]*3;
end;
for i:=10 to 20 do write(m[i],' ');
writeln;
end.

MOGZ ответил