Количество информации I, которое несет сообщение о реализация события A равно -ln(p), где p - вероятность события A.
Xкр = 27 - количество семян круглой редиски
Xвыт - количество семян плоской редиски
Pвыт - вероятность достать семечко вытянутой редиски равно Xвыт/(Xкр+Xвыт)
I - количество информации, которое несет сообщение о том, что доставли одно семечко вытянутой редиски
Исходя из условий задачи, можем составить уравнение:
I = -ln(Xвыт/(Xкр+Xвыт)) -> 2^-2 = Xвыт/(Xкр+Xвыт), откуда получаем Xвыт = 9
Общее количесво семян равно (Xвыт + Xкр) = 36
Программа переводит метры в километры
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),1,200); a.Println;
Writeln('Ср.арифметическое кратных 3: ',
a.Where(t->t mod 3=0).DefaultIfEmpty.Average)
end.
<u>Пример</u>
n= 15
185 103 5 33 116 167 189 36 79 110 188 12 26 11 10
Ср.арифметическое кратных 3: 67.5
Что точно ты не можешь решить??
Windows - плохая безопасность, бывает медленный из за проблем в реестре.В свою очередь линукс, довольно безопасен и шустрый.Стоит отметить что линукс больше всего используется как серверная ось.