№1. объем сообщения, содержащего 4096 символов, составил 1 мбайт. каков размер алфавита, с которого записано сообщение?
№2. у племени "чичевоков" в алфавите 24 буквы и 8 цифр. знаков препинания и арифметических знаков нет. какое минимальное количество бит им необходимо для кодирования всех символов? учтите, что слова надо отделять друг от друга!
№3. группа школьников пришла в бассейн, в котором 4 дорожки для плавания. тренер сообщил, что группа будет плавать на дорожке номер 3. сколько информации получили школьники из этого сообщения?
№4. в нотной тетради песня записана на 10 страницах. для записи песни было использовано 7 нот. на каждой странице 25 строк по 20 нот в строке. вычислить объем информации в тетради.

1.
var
   n,i,m:integer;
   x:real;
begin
write('Число оценок: '); 
readln(n);
for i:=1 to n do
  begin
  writeln('Введите оценку: ');
  readln(m);
  x:=x+m
  end;
x:=round(x/n);
writeln('Оценка за четверть ',x)
end.

2.
var
   n:integer;
  a,b,c:real;
begin
write('Число a: ');
readln(a);
if a>0 then n:=1;
write('Число b: ');
readln(b);
if b>0 then n:=n+1;
write('Число c: ');
readln(c);
if c>0 then n:=n+1;
writeln('Число положительных ',n)
end.

3.
var
   n,i,s:integer;
   a:array of integer;
begin
write('Размер массива: ');
readln(n);
SetLength(a, n);
for i:=0 to n-1 do
  begin
  a[i]:=random(-3,3);
  write(a[i]:3);
  if a[i]<>0 then s:=s+1
  end;
writeln;
write('Ненулевых элементов: ',s);  
end.

Const n=10; m=10;
var a:array [1..n,1..m] of integer;
i,j,min,x1,y1,max,x2,y2:integer;
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write (a[i,j]:4);
end;
writeln;
end;
min:=a[1,1];
max:=a[1,1];
x1:=1;
x2:=1;
y1:=1;
y2:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then 
begin
min:=a[i,j];
x1:=i;
y1:=j;
end else 
if a[i,j]>max then begin 
max:=a[i,j];
x2:=i;
y2:=j;
end;
writeln ('Минимальный элемент    A[',x1,',',y1,']=',min);
writeln (',Максимальный элемент    A[',x2,',',y2,']=',max);
end.