А что именно надо? В чем проблема
1) Ищем ближайшую сверху к 48 степень двойки - это 2^6 = 64, то есть каждого спортсмена можно закодировать минимум 6 битами. Половина спортсменом это 48/2 = 24, и если на каждого из них надо по 6 бит, то необходимый объем памяти: 24*6 = 144 бита
2) Ближайшая к 15 степень двойки это 2^4 = 16, значит по 4 бита на номер. Для 40 номеров нужно 4*40 = 160 бит
3) Всего в алфавите 5 символов, ближайшая к 5 степень двойки это 2^3 = 8, значит по 3 бита на символ. Каждый пароль кодируется 11*3 = 33 битами. А для хранения 33 бит нужно 33/8 = 4.125 байт, округляем до 5 байт (по условию). Значит на 20 паролей нужно 20*5 = 100 байт.
Первое и третье, все остальное бесконечно
Var
i:integer;
begin
for i:=18 downto 1 do
write(i,' ');
end.
Закономерность выборки состоит в том,что выбирается каждая четвертая буква в алфавите.
А,д,з,л,п,у,ч,ы,Я.