Заполните таблицу, вычислив глубину цвета i при известном количестве цветов в палитреN: Глубина цвета (i)

Количество цветов в палитре (N)

8

64

256

512

ответ:Событие: решение задачи. Источник ифнормации: учитель. Приемник информации: ученик. Информационный носитель: доска.

Событие: измерения давления. Источник ифнормации: пациент. Приемник информации: врач. Информационный носитель: тонометр.

Событие: воспроизведение аудиофайла. Источник информации: пользователь. Приемник информации: сайт. Информациональнный носитель: ПК/телефон.

Событие: воспроизведение: видео и аудиофайла. Источник информации: пользователь. Приемник информации: телевизор. Информациональный носитель: телевизор.

Событие: воспроизведение музыкального фрагмента в живую. Источник информации: ученик. Приемник информации: ближайшие слушатели. Информациональнный носитель: гитара.

Объяснение:

Free Pascal

var

 a : array of array of integer;

 b : array of integer;

 s, i, j, n, m : integer;

begin

 writeln('Введите кол-во строк:');

 readln(m);

 writeln('Введите кол-во столбцов:');

 readln(n);

 randomize;

 setlength(a, n);

 setlength(b, m);

 for i:=0 to n-1 do

   setlength(a[i], m);

 for j:=0 to m-1 do begin

   s:=0;

   for i:=0 to n-1 do begin

     a[i,j] := random(50) - 25;

     if a[i,j] <0 then inc(s);

     write(a[i, j], '  ');

   end;

   b[j]:=s;

   writeln();

 end;

 writeln('--------------------------');

 for j:=0 to m-1 do

   writeln(j+1,' строка = ', b[j]);

end.