Разговор по телефону. Получение информации, передача информации.
Заучивание правила по русскому языку. Хранение информации.
<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
begin
var t:=Arr(-2,1,3,-4,2,0,1,-3,5); t.Println;
Sort(t); t.Println;
Println('Прозведение:',t[0]*t[1]*t[2]);
end.
Истинное высказывание:
12+24=36
Ложное высказывание:
16+10=23
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
Print('Отрицательных:',ArrRandom(100,-50,50).Println
.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
-22 8 50 -18 -37 -43 3 -18 50 -2 -33 -23 -32 41 -37 -6 -20 0 -14 40 6 -43 20 25 4 12 -1 -36 -44 -46 9 35 12 30 19 1 -36 8 -30 23 -48 38 47 34 -50 -47 27 48 -31 -13 46 -46 -42 29 -43 -29 38 -26 28 2 9 -12 -25 46 40 -17 15 -12 -28 12 -21 22 -20 13 37 19 -39 37 25 1 35 1 45 19 -42 4 26 34 23 -3 14 41 31 19 -36 15 12 -49 45 18
Отрицательных: 42
I=log₂(1/P)
P=K/N (K - кол-во случившихся событий, N - всего событий)
P=1/4
I=log₂4=2 бит
Ответ: 2 бит