Написати програму для пошуку розв'язку задачі методом пере- бору. Знайти можливий номер автомобіля, що порушив прави-
ла дорожнього руху, якщо відомо, що номер чотирицифровий,
кратний 5i 7, а сума його цифр становить к (4 < K< 36).
Запрограмуйте повторення запиту на введення змінної ћ, поки
користувач не введе число, яке відповідає умові:
k = 1
while k<4 or k>36:
k= int(input('Введіть число від 4 до 36'))
-

1. Чтобы узнать "мощность алфавита" надо узнать сначала сколькими битами кодируется один символ. 1,5 Кбайт переведем в байты 1,5 * 1024 = 1536 байт и переведем в биты 1536*8=12288 бит. Разделим это на количество символов в сообщении. 12288/768=16 бит. 2 в 16 степени это будет 512 символов т.е. мощность алфавита 512 символов. 
2. если это продолжение первой задачи то решение такое. 
В одном сочинение 2 страницы по 40 строк и 50 символов каждой строке. Находим сколько всего будет символов в одном сочинение 
2*40*50=4000 символов. Из первого пункта видно что 1 символ это 16 бит. Найдем сколько занимает одно сочинение объема.
4000*16=128000 бит переведем в байты. 128000/8=8000 байт.
Объем дискеты 1,44 Мбайт переведем в байты 1,44*1024*1024=1509949,44 разделим чтобы узнать сколько всего сочинений можно поместить на дискету 1509949,44/8000=188,74368 округлим и получим что на одну дискету уместится 188 сочинений.

Program SandP; //Название программы var //Описание переменных x,y: real; // Стороны прямоугольника S: real; // Площадь прямоугольника P: real; // Периметр прямоугольника procedure RectSP(a,b: real; var S,P:real); //Процедура begin S := a * b; //Нахождение площади P := a + b; //Нахождение суммы end; begin //Начало основной части программы writeln('Введите стороны прямоугольника: '); //Диалог с пользователем readln(x,y); //Считывание сторон RectSP(x,y,S,P); //Вызов процедуры writeln('Площадь равна ',S); //Вывод площади writeln('Периметр равен ',P); //Вывод периметра end. //Конец программы