Решите 3 вопроса! 1)Сколько существует натуральных чисел х, для которых выполнено неравенство
100111002 < x < C616
2)Максимальная скорость передачи данных по некоторому каналу связи составляет 464·105 бит/с. Какое максимальное количество информации можно передать по этому каналу за 45 секунд?
3)Из трехзначного числа строится новое число по правилу: складываются первая и вторая, а также вторая и третья цифры исходного числа; полученные два числа записываются друг за другом, в порядке невозрастания (например 123 1 + 2 = 3, 2 + 3 = 4, получили 43). Укажите наименьшее трехзначное число, в результате обработки которого получится число 92.

13. В колоде содержится 32 карты. Из колоды случайным образом вытянули туза, потом его положили обратно и перетасовали коло-ду. После этого из колоды опять вытянули этого же туза. Какое количество бит информации в сумме содержат эти два сообще-ния?

14. В колоде содержится 32 карты. Из нее наугад взяли 2 карты. Ка-кое количество информации несет сообщение о том, что выбраны туз и король одной масти?

15. Каждый студент в группе изучает только один из 3 языков: ан-глийский, немецкий или французский. Причем 2 студента изуча-ют французский язык. Информационный объем сообщения "Сту-дент Петров не изучает английский язык" 2* ((log2 3) -1)равен бит. Количество информации, содержащееся в сообщении "Студент Иванов изучает немецкий язык", равно log2 3 бит. Сколько сту-дентов изучают английский язык?

16. Сельскохозяйственная фирма засеяла каждое из своих полей од-ной из трёх культур: пшеницей, рожью или гречихой. Причём 23 поля засеяны не гречихой. Для проверки качества посева наугад выбирается одно поле. Количество информации, содержащееся в сообщении «Поле засеяно пшеницей», равно 5- log2 3 - log2 5 бит. Информационный объем сообщения «Поле засеяно не ро-жью» равен бит. Сколько полей засеяно не пшеницей?

Объяснение:

Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.