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

В неравномерном коде количество разрядов для символов с большей вероятностью стараются делать меньше, чем для символов с меньшей вероятностью. Закодируйте слово «ПАРАЛЛЕЛОГРАММ» и переведите двоичную последовательность в 16-ю систему счисления, если известны коды некоторых букв этого слова. Коды недостающих символов необходимо взять так, чтобы количество разрядов в них было минимальным
Буква А Р Е П Г
Код 00 101 1100 1111 1101

Показать ответ
Ответ:
Stepan0305
Stepan0305
16.01.2020 23:55

program Numfind;

uses

 System.SysUtils;

var

 a: array [1..10] of Integer;   // 1..10 размерность массива можно изменять, программа будет работать правильно

 i, s: Integer;

begin

 Randomize;

 for i := Low(a) to High(a) do

   a[i] := - 25 + Random (151);

 WriteLn ('Массив чисел:');

 for i := Low(a) to High(a) do

   Write (a [i], ' ');

 s := 0;

 WriteLn;

 WriteLn;

 WriteLn ('Выбрано: ');

 for i := Low(a) to High(a) do begin  // цикл выбора чисел больше 20

   if (a [i] > 20) then begin

     s := s + a [i];

     Write (A [i], ' ');

   end;

 end;

 WriteLn;

 WriteLn ('Сумма чисел больше 20 = ', s);

 s := 0;

 WriteLn;

 WriteLn ('Выбрано: ');

 for i := Low(a) to High(a) do begin  // цикл выбора чисел меньше 100

   if (a [i] > 0) and (a [i] < 100) then begin

     s := s + a [i];

     Write (A [i], ' ');

   end;

 end;

 WriteLn;

 WriteLn ('Сумма чисел меньше 100 = ', s);

 s := 0;

 WriteLn;

 WriteLn ('Выбрано: ');

 for i := Low(a) to High(a) do begin  // цикл выбора чисел кратных 3

   if (a [i] > 0) and (a [i] mod 3 = 0) then begin

     s := s + a [i];

     Write (A [i], ' ');

   end;

 end;

 WriteLn;

 WriteLn ('Сумма чисел кратных 3 = ', s);

 ReadLn

end.

0,0(0 оценок)
Ответ:
Mrt2004
Mrt2004
05.03.2023 05:38

1)многофункциональное электронное програмно управляемое устройство для работы с информацией

2)сканер

3)тактовой частоты процессора

4)Программа - это последовательность… *

команд для компьютера

5)внешняя память

6)в двоичном коде

7)Принтер - устройство кодирования

8)Операционная система - это программы, управляющие работой компьютера

9)программа, обеспечивающая работу устройства компьютера

10)а) программа для обработки информации без знания программирования

11)г) в оперативной памяти

12)аппаратным интерфейсом

13)в) рисунков и фотографий

14)пользовательский интерфейс

15)Логический диск

16)вредоносная программа нанести ущерб данным на копьютере или вывести его из стро

17)Графическим файлам

18)Один любой допустимый символ

19)C

20)Файловая система

21)клавиатура, джойстик,монитор,мышь

22)C:\Работа1

23)-

24)-

25)расширение

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