В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
soplador
soplador
22.05.2020 18:37 •  Информатика

Срешением
1. считая, что каждый символ кодируется 16 битами, определите информационный объем следующего предложения в кодировке unicode:

когда в товарищах согласья нет,
на лад их дело не пойдет,
и выйдет из него не дело, только мука.

2. рассказ, набранный на компьютере, содержит 2 страницы, на каждой странице 32 строки, в каждой строке 64 символа. определите информационный объём рассказа (кбайт) в одной из кодировок unicode, в которой каждый символ кодируется 16 битами.

3. текст рассказа набран на компьютере. информационный объём получившегося файла 35 кбайт. текст занимает 14 страниц, на каждой странице одинаковое количество строк, в каждой строке 64 символа. все символы представлены в кодировке unicode, в которой каждый символ кодируется 2 байтами. определите, сколько строк помещается на каждой странице.

4. информационное сообщение объёмом 4 кбайта состоит из 1024 символов. каков информационный вес символа этого сообщения? сколько символов содержит алфавит, с которого записано это сообщение?

Показать ответ
Ответ:
поля1209348756
поля1209348756
17.10.2022 21:29

program a2;

var

 a, x1, y1, z1, l1, z, l: string;

 i, g, d, f, a1, b1, sum, vr, vr1, err: int64;

begin

 readln(a);

 g := pos(';', a);

 x1 := copy(a, 2, g - 2);

 y1 := copy(a, g + 2, length(a) - g - 2);

 if a[1] = '[' then d := 1

 else d := 0;

 if a[length(a)] = ']' then f := 1

 else f := 0;

 if pos('/', x1) <> 0 then begin

   z := copy(x1, 1, pos('/', x1) - 1);

   z1 := copy(x1, pos('/', x1) + 1, length(x1) - pos('/', x1));

   val(z, vr, err);

   val(z1, vr1, err);

   a1 := vr div vr1;

 end

 else val(x1, a1, err);

 if pos('/', y1) <> 0 then begin

   l := copy(y1, 1, pos('/', y1) - 1);

   l1 := copy(y1, pos('/', y1) + 1, length(y1) - pos('/', y1));

   val(l, vr, err);

   val(l1, vr1, err);

   b1 := vr div vr1;

 end

 else val(y1, b1, err);

 for i := a1 to b1 do sum := sum + 1;

 val(z, vr, err);

 val(z1, vr1, err);

 if (d = 0) then  

   if vr = 0 then sum := sum - 1

   else if (vr mod vr1 = 0) then sum := sum - 1;

 val(l, vr, err);

 val(l1, vr1, err);

 if (f = 0) then  

   if vr = 0 then sum := sum - 1

   else if (vr mod vr1 = 0) then sum := sum - 1;

 writeln(sum);

end.

На не благодари)

0,0(0 оценок)
Ответ:
Allison5
Allison5
13.01.2022 10:18

Что такое мощность алфавита Автор Максим ОстровскийJune 16, 2017 Алфавитом в информатике называется система знаков, с которой можно подать информационное сообщение. Чтобы понять сущность этого определения, приведем немного дополнительных теоретических фактов: Любые сообщения состоят из алфавита. Например, данная статья - сообщение. Тогда она состоит из символов русского алфавита. Под символом мы можем понимать минимально значимую частицу алфавита. Также неделимые частицы называют атомами. Символами в русском алфавите являются "а", затем "б", "в", и так далее. В теории, алфавиту необязательно быть закодированным как-либо. Например, в печатной книге символы алфавита означают сами себя, значит, не имеют какой-либо кодировки. -

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота