Для кодирования нотной записи используется 200 нот. Каждая нота кодируется одним и тем же минимально возможным количеством бит. Какое количество нот содержится в записи если информационный объем сообщения равен 160 байт? Мой ответ
Для кодирования нотной записи используется 200 нот. Каждая нота кодируется одним и тем же минимально возможным количеством бит. Какое количество нот содержится в записи если информационный объем сообщения равен 160 байт?

Если нужны объяснения то пиши в личку)

Program zada4a;
var
i,x,n: integer;
a: array [1..100] of integer;
begin
n:=0;

write('Введите x - ');
readln(x);
for i:=1 to 5 do   - если попросят чтобы выводилось больше 5 чисел, то поменяйте цифру 5 на нужную.
begin
 a[i]:=random(21);  -это строчка озночает, что задаются числа интервалом от 0 до 20.
write(a[i]:5);
end;
writeln;
for i:=1 to 5 do
begin
if x=a[i] then
begin
writeln('Элемент в массиве равный ',x,' находится под номером - ',i);
n:=n+1;
end;
end;
if n=0 then
write('Элемент c таким значением отсутствоет');
end.

var a:array[1..250] of string; size:real; i,n:integer; text:string;

begin

   writeln('daite N'); readln(n);

   for i:=1 to n do

     begin

        readln(size);

        if (size>1024) or (size=1024) then

            begin

               size:=size/1024;

               str(size:0:2,text);

               a[i]:=text+' kb';

               text:=''; size:=0;

            end else

         begin

              str(size,text); a[i]:=text+' bytes'; text:=''; size:=0;

         end;

      end;

  for i:=1 to n do write(a[i],' '); readln;

end.