М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
karolsevilla384
karolsevilla384
19.08.2021 02:55 •  Информатика

1) два письма написаны с использованием алфавитов с разными мощностями: 16 символов и 32 символа. в 1-ом письме 120 символов, во 2-ом письме - 96 символов. сравните информационные объёмы сообщений. 2) информационное сообщение объёмом 375 байт состоит из 500 символов. каков вес каждого символа сообщения? какова мощность алфавита, используемого для написании сообщения? 3) для записи текста использован 64-символьный алфавит. какое количество информации в байтах содержат 3 страницы текста, если на каждой странице 40 строк по 60 символов? 4) сколько информации несёт сообщение о том, что было указано число в диапазоне от 55 до 311 (55 включая, 311 не включая)?

👇
Ответ:
sasipomidorp01sct
sasipomidorp01sct
19.08.2021

1) Для кодирования одного из 16 символов необходимо log(2)16 = 4 бита (2^4=16); для кодирования одного из 32 символов необходимо log(2)32 = 5 бит (2^5=32). Объем 1-го письма = 4*120 бит = 480 бит; объем второго - 5*96 = 480 бит. Таким образом, объемы равны.

2) 375 байт = 375*8 бит = 3000 бит. Объем одного символа = 3000/500 = 6 бит. Мощность алфавита = 2^6 = 64 символа.

3) Для кодирования одного из 64 символов необходимо log(2)64 = 6 бит. Количество символов в тексте = 3*40*60. Информационный объем текста = 3*40*60*6 бит = 3*40*60*6/8 байт = 5400 байт.

4) Количество символов в указанном диапазоне = 311-55 = 256. Количество информации в сообщении об одном числе диапазона = log(2)256 = 8 бит = 1 байт (2^8=256).

4,6(70 оценок)
Открыть все ответы
Ответ:
alla5051
alla5051
19.08.2021
// PascalABC.Net 3.0, сборка 1052
const
  nn=100;
var
  a:array[1..nn] of integer;
  p,s:longint;
  i,n:byte;
begin
  Write('Введите количество элементов в массиве: '); Read(n);
  Writeln('Вводите целочисленные элементы массива через пробел');
  s:=0; p:=1;
  for i:=1 to n do begin
    Read(a[i]);
    if i mod 2 = 0 then p:=p*a[i];
    s:=s+a[i]
  end;
  Writeln('Произведение элементов с четными номерами: ',p);
  Writeln('Среднее арифметическое элементов: ',s/n)
end.

Тестовое решение:
Введите количество элементов в массиве: 10
Вводите целочисленные элементы массива через пробел
-4 6 11 8 12 21 7 13 9 -15
Произведение элементов с четными номерами: -196560
Среднее арифметическое элементов: 6.8
4,7(29 оценок)
Ответ:
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!

type
  R=sequence of integer;

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var P:R->BigInteger:=t->t.Aggregate(BigInteger(1),(p,q)->p*q);
  if P(a.Where(t->t.IsEven))>P(a.Where(t->t.IsOdd))
  then Writeln('Номер максимального элемента: ',a.IndexMax+1)
  else Writeln('Номер минимального элемента: ',a.IndexMin+1)
end.

Примеры
n= 17
31 98 7 42 -70 -98 -34 43 -48 -40 -28 -35 15 26 25 1 -66
Номер минимального элемента: 6

n= 15
95 88 -82 96 87 -68 17 40 -66 1 60 -25 -78 -55 -55
Номер максимального элемента: 4
4,8(24 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ