Нужно посчитать число вариантов, т.е. максимальное число человек которое может принять врач. Он может принимать в:
8:00, 8:30, 9:00, 9:30, 10:00, 10:30, 11:00, 11:30, 12:00, 12:30, 13:00, 13:30. Т.е. (14-8)*2 = 12 пациентов.
Петя записался на прием в 11:30 - это один(!) из возможных равновероятных вариантов, а значит несет информации:
бита
Var x, y, z: double;
begin
writeln('Input x');
readln(x);
writeln('Input y');
readln(y);
if (x + y >= 0) and (x + y <> 4) then {необходимо для корректности}
begin
z := (x * x + y * y) / (2 - sqrt(x + y));
writeln(z);
end
else
writeln('Incorrect input');
end.
1) Берем лист бумаги, разлиновываем на квадратики, в каждый вписываем числа, начиная от 1. Кидаем на листик монетку. В какой квадрат упадет, то число и выбираем.
2) Берем несколько игральный кубиков. Кидаем, подсчитываем сумму выпавших очков.
3) Берем колоду 36 карт, вытаскиваем карту наугад. Туз 1, валет 2, дама 3, король 4, 10- 5, карты от 6 до 9 - соответственно 6-9.
Мощность алфавита 64, значит для кодирования одного символа требуется 6 бит, т.к. 64 = 2^6.
Объем сообщения равен 5*6 = 30 бит
Вот этот кусочек будет считать сколько элементов в массиве меньше 6.
x := 0;
for i := 1 to n do
begin
if m[i] < 6 then
inc(k);<span>
end;
writeln(k);
</span>
