1) какое количество информации несет сообщение о том, что встреча назначена на май? 2) какое количество информации несет сообщение о том, что встреча назначена на 20-е число? 3) какое количество информации несет сообщение о том, что встреча назначена на 16 часов? 4) какое количество информации несет сообщение о том, что встреча назначена на среду? 5) при угадывании числа в диапазоне от 1 до n получено 8 бит информации. чему равно число n? 6) какое наименьшее количество вопросов надо задать, чтобы угадать число из диапазона от 1 до 120? 7) какое наименьшее количество вопросов надо задать, чтобы угадать число диапазонов от 31 до 64?

👇

Ответ:

Танрпол

14.12.2020

Слишком много вопросов, поэтому ответы будут даны без подробных разъяснений.
1. В году 12 месяцев, выбор 1 из 12.
$I=log_212\approx 3.585$
2. В месяце максимум 31 день, минимум - 28 дней. Выбор от 1 из 31 до 1 из 28. Соответственно, количество информации будет в диапазоне:
$[log_228;log_231]\approx[4.807;4.4.954]$
3. В сутках 24 часа, выбор 1 из 24.
$log_224\approx 4.585$
4.В неделе 7 дней, выбор 1 из 7.
$log_27\approx 2.807$
5. $I=log_2N \to N=2^I; \ N=2^8=256$
6. Если каждый раз делить интервал пополам и задавать вопрос "Находится ли число..", указывая любую из половинок, то число не превысит семи.
$log_2120\approx 6.907 - N=7$
7. Как и в предыдущем случае, надо угадать одно число из 64-31+1=34
$log_27\approx 2.807 \to N=3$
Надо задать три вопроса.

4,7(79 оценок)

Открыть все ответы

Ответ:

медвва

14.12.2020

1)uses crt;
var i,j,n,ans:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
ans:=ans+1;
writeln(ans);
end.
2)
uses crt;
var i,n:integer;
x:array[1..100] of integer;
begin
writeln('Введите количество x и значения: ');
read(n);
for i:=1 to n do
read(x[i]);
writeln('x y');
for i:=1 to n do
writeln(x[i],' ',x[i]*x[i]+3);
end.
3.
uses crt;
var i:integer;
begin
for i:=1 to 5 do
write(i*i*i,' ');
end.
4.
uses crt;
var i,n,sum:real;
begin
writeln('Введите N:');
read(n);
i:=3;
while i<=n do
begin
sum:=sum+1/i;
i:=i+3;
end;
writeln(sum);
end.
5.
uses crt;
var j,i,n,sum:integer;
a:array[1..100] of integer;
begin
writeln('Введите количество чисел и сами числа:');
read(n);
for i:=1 to n do
begin
sum:=0;
read(a[i]);
for j:=1 to length(inttostr(a[i])) do
sum:=sum+strtoint(inttostr(a[i])[j]);
if sum mod 3 = 0 then
write(a[i],' ');
end;
end.
6.a)uses crt;
var n:string;
begin
read(n);
writeln(max(strtoint(n[1]),strtoint(n[2])));
end.
б)
uses crt;
var n:string;
begin
read(n);
writeln(max(max(strtoint(n[1]),strtoint(n[2])),strtoint(n[3])));
end.

4,7(20 оценок)

Ответ: