Вот так как то, если неправильно, напишите в комментах
program nomer;
var a,b,c:integer;
begin
writeln('Введите а,b,c');
readln(a,b,c);
if a>b then
begin
if b>c then writeln (c,b,a)
else
if a>c then writeln (b,c,a)
else writeln (b,a,c);
end
else
begin
if a>c then writeln(c,a,b)
else
if b>c then writeln (a,c,b)
else write(a,b,c)
end;
end.
Решение смотри во вложении.
1) Найдем глубину кодирования одного символа (количество ячеек памяти для одного символа) - i
N = 2^i
64 = 2^i
i = 6 бит нужно для кодирования одного символа 64-символьного алфавита
2) 8640 байт = 69120 бит - содержит все сообщение
3) 69120 бит / 6 бит = 11520 символов всего в сообщении
4) 6 × 30 = 180 строк на 6 страницах
5) 11520 симв / 180 строк = 64 символа в одной строке.
Ответ: 64 символа в одной строке.
215 div 5=43
312 div 5=62
116 div 7=16
442 div 9=49
775 div 10=77