Плотоядных 256/4=64
Информационная ёмкость в сообщении о находке плотоядного по формуле Шеннона
i=-log(p)/log(2) = -log(1/4)/log(2) = log(4)/log(2)=2
Сообщение о находке вампира весит в информационном смысле в тра раза больше, или 6 бит. Снова подставим в формулу Шеннона, для определения вероятности находки вампира
6 = -log(p)/log(2)
-6log(2)=log(p)
log(2^-6)=log(p)
p = 1/2^6 = 1/64
А всего вампиров было
256*p = 256/64 = 4
Травоядные - это остаток
256-64-4 = 188
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadInteger('a=');
Writeln(1.To(a).Aggregate(int64(1),(p,q)->p*q))
end.
<u>Пример</u>
a= 20
2432902008176640000
Итак...
Количество сравнений, это сколько раз твое число приравнивается к другим. Смотря на твою последовательность ты после сортировки массива сравниваешь число 2 со своим массивом. Приравниваешь его к первому числу это у тебя единица. Число один не совпадает с даным по условию числом, значит двигаемся дальше, и это уже будет другое сравнение. И так делаем пока не найдем число "2". Так как это число у тебя на втором месте, количество сравнений будет 2.
Если бы ты искал например число 4 количество сравнений было бы 5, так как число 4 стоит пятым в очереди.
uses math;
var
a, b, c: Integer;
S, p: Real;
begin
readln(a);
readln(b);
readln(c);
p := (a + b + c) / 2;
S := sqrt(p * (p - a) * (p - b) * (p - c));
writeln(S:0:1);
end.
Линейный алгоритм - алгоритм, все элементы которого выполняются последовательно.
Машина, берега, операционная система, клавиатурный тренажер.
