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

Каждый сотрудник предприятия получает электронный пропуск, на котором записаны личный код сотрудника и срок
действия пропуска.
Личный код состоит из 19 символов, каждый из которых может быть одной из 26 заглавных латинских букв. Для записи
Кода на пропуске отведено минимально возможное целое число байтов, при этом используют пoсимвольное кодирование
все символы кодируют одинаковым Минимально возможным количеством битов.
Срок действия записывается как номер года (число от 0 до 60, означающее год от 2000 до 2060) и номер дня в году
(число от 1 до 366) Номер года и номер Дня записаны на пропуске как двоичные числа, каждое из них занимает минимально возможное количество битов, а два сила вместе - минимально возможное количество байтов. Сколько байтов занимает вся информация в пропуске ?​

Показать ответ
Ответ:
bng453
bng453
16.03.2023 12:35

var

 n, Num, i, j, t: integer;  

 Count: array[1..12] of integer;  

 Names: array[1..12] of integer;

begin

 for i := 1 to 12 do  

 begin

   Count[i] := 0;  

   Names[i] := i;  

 end;  

 ReadLn(N); { Считываем количество запросов}  

 for i := 1 to N do  

 begin

   ReadLn(t); {считали очередной запрос}  

   Count[t] := Count[t] + 1;  

 end;  

 {Сортируем массивы Names и Count в порядке убывания значений массива Count}  

 for i := 12 downto 2 do  

   for j := 2 to i do  

     if Count[j - 1] < Count[j] then  

     begin

       t := Count[j];

       Count[j] := Count[j - 1];

       Count[j - 1] := t;

       t := Names[j];

       Names[j] := Names[j - 1];

       Names[j - 1] := t;

     end;  

 for i := 12 downto 1 do  

   if Count[i] > 0 then  

     WriteLn(Names[i], ' ', Count[i]);  

end.

Объяснение:

0,0(0 оценок)
Ответ:
olgamarinina1
olgamarinina1
28.08.2022 02:55

Введение

Программное обеспе́чение (произношение обеспече́ние не рекомендуется) — наряду с аппаратными средствами, важнейшая составляющая информационных технологий, включающая компьютерные программы и данные, предназначенные для решения определённого круга задач и хранящиеся на машинных носителях.

Программное обеспечение представляет собой алгоритм, реализованный в виде последовательности инструкций для процессора.

вот так вот

В компьютерном жаргоне часто используется слово «софт» от английского software.

Ну думаю знаете

По назначению программное обеспечение разделяется на системное, прикладное и инструментальное.

Если еще подробнее пишите в лс

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