Сообщение занимает 3 страницы по 25 строк в каждой строке за писано по 60 символов сколько символов в использованом алфавите если все сообщение содержит 1125 битов

Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;
Сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;
Т. к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. Байт состоит из 8 бит.
8 / 4 = 2 (количество битов чтобы закодировать каждый символ)
Двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов

2)

uses crt;

const n=random(50);

var a:array[1..n]of integer;

i,min,max,s,k:integer;

begin

clrscr;min:=11;writeln('оценки ',n+1,' судей');

for i:=1 to n do

begin

a[i]:=random(10);

write(a[i],' ');

if a[i]> max then max:=a[i];

if a[i]<min then min:=a[i];

end;

for i:=1 to n do

begin

if (a[i]=min)or(a[i]=max) then begin write(i,' судья поставил минимальный или максимальный балл');writeln;end;

if (a[i]<>min)and(a[i]<>max) then begin s:=s+a[i];k:=k+1;end;

end;

writeln('среднее значение оценок судей ',(s/k):1:1);

end.

1)Uses crt;

const n=5;

Var a:array[1..n]of integer;

   i,min,km:integer;

begin clrscr; randomize;

 for i:=1 to n do

 begin

   a[i]:=Random(100);

   write(a[i],' ');

 end;

 writeln;

 min:=a[1];

 km:=1;

 for i:=2 to n do if a[i]<min then

 begin

   min:=a[i];

   km:=i;

 end;

 writeln('Mimimalnoe chislo a[',km,']=',min);

 min:=100;

 km:=1;

 for i:=2 to n do if (a[i]<min)and(a[i]mod 2=0) then

 begin

   min:=a[i];

   km:=i;

 end;

 writeln('Naimenshee chetnoe cislo a[',km,']=',min);

 readln;

end.

program raf105;

var mama,sum,rub,day:integer;

begin

write('Какую сумму денег мама выдала сыну? >> ');

readln(mama);

writeln('Введите сумму, которую вы потратили за один день');

writeln('Что бы узнать оставшиеся и потраченные деньги введите "-1"');

sum:=mama;

while sum<>0 do

begin

 readln(rub);

 if sum-rub >= 0  

   then

   if rub=-1  

     then

     begin

       writeln('У вас осталось ',sum,' руб.');

       writeln('Вы потратили ',mama-sum,' руб. за ',day,' дн.');

     end

     else

      begin

        sum:= sum-rub;

        day:= day+1;

      end

    else writeln('У вас недостаточно денег, что бы потратить такую сумму');

end;

writeln('У вас закончились деньги');

writeln('Вы потратили их за ',day,' дн.');

end.

Написано на языке PascalABC.NET