Дима хотел переписать у друга 100 музыкальных композиций объемом по 3, 5 мбайт и 3 видеофильма объема 55 мбайт и 400 мбайт и 600 мбайт у него есть 3 компакт диска объемом по 650 мбайт.каким оброзом необходимо скомпоновать информацию, чтобы она поместилась на эти 3 диска

I  диск = 650 Мбайт
    записываем фильм     600 Мбайт < 650 Мбайт
II диск =650 Мбайт
   записываем два фильма 55+400 = 450 Мбайт < 650 Мбайт
III  диск = 650 Мбайт
  записываем музыку  100*3,5=350 Мбайт <  650 Мбайт

1) K =20 N=128 найти I

   N=2^i       128=2^7

   i=7 бит

   i=Ki=20*7=140 бит.

2) Задание лишено смысла, т. к. символ никогда не кодируется частью байта. Но допустим, что под байтом тут просто понимается массив из 8 битов. Тогда 2^(30 * 8 / 40) = 64.

3) Считаем количество символов в сообщении:

3 * 25 * 60 = 4500;  

Сообщение занимает 1125 байт. Считаем, сколько байт занимает каждый символ:  

1125 / 4500 = 0.25;  

Т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. Байт состоит из 8 бит.  

8 / 4 = 2 (количество битов чтобы закодировать каждый символ)  

Двумя битами можно закодировать 4 символа, => в алфавите может быть до 4-х символов.

Объяснение:

Type
  num=double; { в этом месте можно сменить тип на иной }

function Legal(a,b,c:num):boolean;
  { возвращает True, если из отрезков длиной a,b,c
    можно построить треугольник }
begin
  Legal:=(a+b>c) and (a+c>b) and (b+c>a)
end;

function Med(a,b,c:num):num;
  { возвращает длину медианы, проведенную к стороне а }
begin
  Med:=sqrt(2*(sqr(b)+sqr(c))-sqr(a))/2
end;

procedure Med3(a,b,c:num; var m1,m2,m3:num);
  { возвращает длины m1,m2,m3 всех медиан треугольника,
    построенного из отрезков длиной a,b,c.
    При этом m1- длина медианы, проведенной к стороне а,
    m2- дилна медианы,проведенной к стороне b и т.д.
    Если треугольник построить нельзя, m1=m2=m3=0 }
begin
  if Legal(a,b,c) then
  begin m1:=Med(a,b,c); m2:=Med(b,a,c); m3:=Med(c,a,b) end
  else begin m1:=0; m2:=0; m3:=0 end
end;

{ основная программа }
var
  a,b,c,m1,m2,m3:num;
begin
  Write('Введите длины сторон треугольника: '); Readln(a,b,c);
  Med3(a,b,c,m1,m2,m3);
  if m1>0 then begin
    Med3(m1,m2,m3,m1,m2,m3);
    if m1>0 then Writeln('Длины медиан: ',m1,', ',m2,', ',m3)
    else Writeln('Из полученных медиан нельзя построить треугольник.')
    end
  else
    Writeln('Невозможно построить треугольник с такими сторонами.')
end.

Тестовое решение:
Введите длины сторон треугольника: 14.3 18.9 8.6
Длины медиан: 10.725, 14.175, 6.45