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