<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(100,10,99).Println.Sorted.Println
end.
<u>Пример</u>
36 20 21 96 76 46 14 62 76 59 93 21 78 49 43 60 81 13 75 48 51 11 99 34 61 46 85 55 74 91 76 34 74 26 85 76 69 96 29 45 95 69 28 23 20 77 96 12 72 83 39 29 10 66 68 35 20 87 44 39 61 58 87 85 83 69 47 61 64 66 91 85 83 39 53 82 82 85 23 83 50 82 83 91 61 57 33 17 57 59 66 82 61 90 84 46 81 43 40 51
10 11 12 13 14 17 20 20 20 21 21 23 23 26 28 29 29 33 34 34 35 36 39 39 39 40 43 43 44 45 46 46 46 47 48 49 50 51 51 53 55 57 57 58 59 59 60 61 61 61 61 61 62 64 66 66 66 68 69 69 69 72 74 74 75 76 76 76 76 77 78 81 81 82 82 82 82 83 83 83 83 83 84 85 85 85 85 85 87 87 90 91 91 91 93 95 96 96 96 99
Фомулы:
N =
, где
N - мощность алфавита,
i - количество бит на 1 символ.
V = K * I, где
V - объем,
K - количество символов в сообщении.
Количество бит на 1 символ у племени Мульти:
N =
,
32=
,
i = 5 бит.
Количество бит на 1 символ у племени Пульти:
N =
,
64=
,
i = 6 бит.
Найдем объем информации Мульти:
V
₁ = K * I,
V₁ = 80 * 5 = 400 бит.
Найдем объем информации Пульти:
V₂ = K * I,
V₂ = 70 * 6 = 420 бит.
Сравним объемы:
V₂ - V₁ = 20 бит
Ответ: Объем информации племени Пульти больше племени Мульти на 20 бит.
Будем считать, что нужен запрос
Select a.moviename,a.country, a.time, a.date from film as a where (a.date>01/01/1997 and a.county not like "USA") or a.country="France"
При и ноль стоит выше, то есть, если будет 1 и 0, то результат тоже ноль, а при или выше стоит единица.