<span><span>Дано: Кб = Кс =8,</span> i 6 = 2 бита.
</span>Найти: Кк - ?
Решение:
<span>1)i 6
= log2(l/P6),
2 = Iog2(l/p6<span>),
1/р6 = 4, р6 = '/4 - вероятность расхода белой
банки;</span></span>
<span>2)<span>N = Кб/рб = 8/(1/4) = 32 - банки с
краской было всего;</span></span>
<span>3)<span> <span>Кк.= N - К6
- Кс = 32 - 8 - 8 = 16 банок коричневой краски.
</span>Ответ: <span>16 банок коричневой краски.</span></span></span>
Var skorost,pyt:real;
begin
writeln('Скорость равна = ');
read(skorost);
writeln('Путь равен = ');
read(pyt);
writeln('Время равно = ',pyt/skorost);
end.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,100); a.Println;
Writeln('Четных элементов: ',a.Where(x->x.IsEven).Count)
end.
<u><em>Тестовое решение</em></u>
n= 15
48 48 85 94 39 45 22 16 75 51 85 97 91 31 92
Четных элементов: 6
Не (А + В) = (не А) & (не В)
не А + (не А) & (не В) = не А
не (А & B) = не А + не В
B & (не А + не В) = (не А) & B
не ( (не А) & B ) = А + не B
F = не А + А + не В = 1 + не В = 1