15. в некоторой стране автомобильный номер длиной 6 символов составляют из заглавных букв (задействовано 30 различных букв) и десятичных цифр в любом порядке. каждый такой номер в компьютерной программе записывается минимально возможным и одинаковым целым количеством байт (при этом используют посимвольное кодирование и все символы кодируются одинаковым и минимально возможным количеством бит определите объем памяти в байтах, отводимый этой программой для записи 50 номеров , с "дано" и с "решение".

Вроде так: в номере используется 19+10 = 29 символов.   24   = 16 < 29 < = 25   = 32. поэтому для кодирования одного символа требуется 5 бит. в каждом номере – 6 символов. поэтому для хранения одного номера нужно 30 бит. так как 3*8 < 30 < = 4*8, то придется использовать 4 байт. для записи 40 номеров нужно 4*40 = 160 байт.

Вариант решения №1:
1)8 МБайт = 8192 КБайт
2) 8192 Кбайт / 4096 Кбайт = 2 - это отношение первого файла,которое мы передавали к второму. Тем самым решение получается из этого таким образом:

Первый файл больше второго в 2 раза. При неизменяемой скорости, второй файл соответственно будет передан в 2 раза быстрее -> 128/2 = 64 сек.

Вариант решения №2:
1) 8 МБайт = 8192 КБайт
2) найдём скорость соединения:

8192 Кбайт / 128 сек = 64 Кб/сек.

3) узнаем время передачи второго файла

4096 Кбайт / 64 Кб/сек = 64 сек.

ОТВЕТ : 64 сек.

Отмечу,что при решении похожих задач некоторые при переводе скорости и других местах вместо 1024 считают как 1000. Из-а этого в решении могут появиться такие ответы (для данной задачи) как 65,536 сек.

Обращайте внимание на то,с какой буквы написана величина! КБ=КБайт = 1024 байт. Если первая заглавная,то считается 2 в степени, то есть как принято в информатике.
кБайт = 1000 байт. Если с маленькой,то приставка кило считается по системе СИ, как в физике и является 10^3.

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var n:=15;
  var a:=ArrRandom(n,2,5); a.Println;
  var k2:=a.Where(t->t=2).Count;
  Writeln('Не сдали экзамен ',k2,' чел, что составляет ',k2/n*100:0:1,'%')
end.

Пример
4 3 3 4 5 4 3 4 3 5 4 5 2 5 2
Не сдали экзамен 2 чел, что составляет 13.3%

№2

begin
  ArrRandom(7,15,40).Println.OrderBy(t->t).Println
end.

Пример
34 21 24 29 28 22 25
21 22 24 25 28 29 34

P.S. А объяснять тут нечего - все видно из текста программы.