Var i:integer;
begin
for i:=1000 to 9999 do
if i mod 134 = 11 then writeln(i);
end.
Результат (только начало и конец, т.к. чисел много):
<span>1083
1217
1351
...
</span><span>9659
9793
9927</span>
Для записи одного из 4 символов (Р, О, Б, Т) требуется log(2)4 = 2 бита; для записи пароля - 10*2 = 20 бит = 20/8 байт ≈ 3 байта.
Для записи 30 паролей потребуется 30*3 байт = 90 байт.
Ответ: 4 ученика любят все 3 вида спорта.
Решение: 35=18+12+24-8-5-10-х
х=35-31
х=4
под а) 4 под б)1 а в)6 ...............................