Как создать отчет для многотабличной БД?
​

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 сочинений.

Const n=10; m=5;
var
   i,j,k:integer;
   A:array[1..n] of integer;
   B,C:array[1..m] of integer;
begin
   writeln('Введите элкменты массива');
   for i:=1 to n do readln(a[i]);
   j:=0; k:=0;
   for i:=1 to n do
     if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
     else begin k:=k+1; C[k]:=A[i] end;
   writeln('Массив А');
   for i:=1 to n do write(A[i],' ');
   writeln;
   writeln('Массив B');
   for i:=1 to j do write(B[i],' ');
   writeln;
   writeln('Массив C');
   for i:=1 to k do write(C[i],' ');
   writeln
end.