Для данной задачи используем формулу Хартли: N = 2^i; где N - мощность алфавита; i - количество бит в одном символе; В данном случае, N будет равняться 31, так как у нас определенно время встречи в месяце(т.е. 31 объект для выбора). Тогда 31 = 2^i; следовательно i = 5 бит. Поэтому данное сообщение будет нести информацию в 5 бит. ответ : 5 бит.
Var n,i,s,k,p:integer; begin p:=1; write('Введите число '); readln(n); writeln(' среднее арифметическое от 1 до ',N,' = ',(n+1)/2); for i:=1 to n do begin if (i mod 3 = 0) and (i mod 2 = 0) then begin s:=s+i; k:=k+1; end; p:=p*i end; writeln(' среднее арифметическое целых,чётных,кратных 3 чисел от 1 до ',N,' = ',s/k); writeln(' произведение чисел от 1 до ',N,' = ',p); end.
Тестовое решение: Введите число 10 среднее арифметическое от 1 до 10 = 5.5 среднее арифметическое целых,чётных,кратных 3 чисел от 1 до 10 = 6 произведение чисел от 1 до 10 = 3628800
где N - мощность алфавита;
i - количество бит в одном символе;
В данном случае, N будет равняться 31, так как у нас определенно время встречи в месяце(т.е. 31 объект для выбора).
Тогда 31 = 2^i; следовательно i = 5 бит.
Поэтому данное сообщение будет нести информацию в 5 бит.
ответ : 5 бит.