Б35
Объяснение:
Обозначим объем документа в исходном состоянии V и в сжатом состоянии Vc. По условию сжатый файл 
. Переведем объемы файлов в обоих состояниях в биты - 
.
Время, требуемое на передачу файла в сжатом виде обозначим tc, в исходном t, скорость передачи данных обозначим m=218 bit. Получаем формулу 
. 
.
tc<t из чего следует, что времени на передачу сжатого файла требуется меньше чем на передачу исходного файла без сжатия. |tc-t| = ~35 (*
). Секунд много, что в ответе писать в таком случае неизвестно.
===== PascalABC.NET ====
begin
var a := ArrRandom(25, 20, 100);
a.Println.SortedDescending.Println
end.
===== Free Pascal =====
const
n = 25;
var
a: array[1..n] of integer;
i, j, t: integer;
begin
randomize;
for i := 1 to n do
begin
a[i] := random(81) + 20;
write(a[i], ' ')
end;
writeln;
// пузырьковая сортировка по убыванию
for i := n - 1 downto 1 do
for j := 1 to i do
if a[j] < a[j + 1] then
begin
t := a[j];
a[j] := a[j + 1];
a[j + 1] := t
end;
// вывод результатов
for i := 1 to n do
write(a[i], ' ');
end.