vladexi
?>

С БЛОК СХЕМОЙ program pascal52; var A: array[1..100] of integer; NN, i, j: integer; begin write('размер массива NN = '); readln(NN); for i := 1 to NN do begin write('a[' , i, '] = '); read(a[i]) end; for i := 2 to NN do for j := 1 to i - 1 do if a[i] = a[j] then begin writeln('Номера: ', j, ' и ', i); end; end.

Информатика

Ответы

danya1509379
Из условия Фано следует, что в префиксном неравномерном двоичном коде, предусматривающем однозначное декодирование, ни одно кодовое слово не может быть началом другого. 

Таким образом, оставшиеся три кода не могут быть началом кода буквы Б, и началами кодов друг друга.

То есть коды 0 и 00 отпадают сразу, т.к. это начала буквы Б.

Если предположить, что один из кодов равен 1, и что нам нужны кратчайшие коды, значит оставшиеся коды могут быть только 01 и 011.

Если предположить, что коды двузначны, тогда кодами могут быть 01, 10 и 11.

В первом случае суммарная длина кодов равна 1+2+3+3 = 9, во втором случае - 2+2+2+3 = 9.

Оба варианта подходят, кратчайшая суммарная длина - 9
ivnivas2008
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title></title>
</head>
<body bgcolor=lightgrey>
<font color=red face="Arial"><h1 align=center>Иванов</h1>
<h2 align=center>Иван Иванович</h2>
</font>
<hr width=50%>
<a href="document2.html">На страницу 2</a>
</body>
</html>

<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title></title>
</head>
<body bgcolor=lightgrey>
<font color=blue face="Arial"><h1 align=center>Иванов</h1>
<h2 align=center>Иван Иванович</h2>
</font>
<hr width=50%>
<font face="Times New Roman">
<ul>
Список группы:
<li> Чел1
<li> Чел2
<li> Чел3
<li> Чел4
<li> Чел5
<li> Чел6
</ul>
<ul type=square>
Список отсутствующих:
<li> Чел1
<li> Чел2
<li> Чел3
</ul>
</body>
</html>

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

С БЛОК СХЕМОЙ program pascal52; var A: array[1..100] of integer; NN, i, j: integer; begin write('размер массива NN = '); readln(NN); for i := 1 to NN do begin write('a[' , i, '] = '); read(a[i]) end; for i := 2 to NN do for j := 1 to i - 1 do if a[i] = a[j] then begin writeln('Номера: ', j, ' и ', i); end; end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Рогов1996
aistenok-28
elav20134518
a580028r
olelukoya4
misterdre9991
cheremetdiana
shoora
iamhrusha
juliaWinter
Платон Демцун
ВладимировнаИП37
groomingprofi56
mon84
Суховодова599