<em>var a:integer; </em>
<em>begin </em>
<em>writeln('Введите целое число'); </em>
<em>read(a); </em>
<em>if ((a mod 10) mod 2=1) then writeln('Последняя цифра числа - нечетная.') </em>
<em>else writeln('Последняя цифра чиста - четная.'); </em>
<em>end.</em><span><em> </em></span>
Для кодирования 124 номеров необходимо 66 бит
function Pow(x, y: real): real;
var
PowTmp: real;
begin
if (x < 0) then
PowTmp := (-1) * Exp(y * Ln(Abs(x)))
else if (x > 0) then
PowTmp := Exp(y * Ln(Abs(x)))
else PowTmp := 0;
if not (odd(round(y))) then PowTmp := Abs(PowTmp);
if (y = 0) then PowTmp := 1;
Pow := PowTmp;
end;
Вот функция, приклейте, куда нужно:)
Все числа имеют равный шанс "выпадания". Поэтому могло быть 15 вариантов событий, поэтому неопределённость знаний уменьшается в 15 раз. Сообщение, что выбрали одно число содержит 4 бита. Так как (15 ≈ 2^4) Ответ: 4 бита