1) объем звукового стереоаудиофайла – 7500 кбайт, глубина звука – 32 бит, длительность звучания этого файла – 10 сек. с какой частотой дискретизации записан данный файл? 2) информационный объем изображения размеров 30х30 точек равен 1012, 5 байт. определить количество цветов в палитре, используемой для этого изображения.

*** 1 *** 1. определяем объем файла, необходимого для звучания в течении 1 сек. kсек=7500 / 10 = 750 (кбайт) 2. поскольку файл стереофонический, то он использует два звуковых канала, поэтому объем k1 следует уменьшить вдвое, получая объем, занимаемый одним каналом. k=kсек / 2 = 750 / 2 = 375 (кбайт) или 375 х 1024 = 384000 (байт) 2. глубина звука 32 бита - это 32 / 8 = 4 байта. m=4. 3. количество отсчетов на канал в секунду составит k / m = 384000 / 4 = 96000. это соответствует частоте дискретизации 96 000 гц или 96 кгц. *** 2 *** всего имеется 30х30=900 точек, которые занимают 1012.5 байт. тогда одна точка занимает 1012.5 / 900 = 1.125 (байта) или 1.125 х 8 = 9 (бит). в девяти битах можно разместить палитру, количество цветов в которой составляет два в девятой степени (считая, что черный - это тоже цвет). - используется 512 цветов.

См решение в

Var a: array [1..5] of integer; i, amount: integer; begin       read(a[1], a[2], a[3], a[4], a[5]);       amount : = 0;       for i : = 1 to 5 do       begin           while a[i] > = 10 do           begin                 a[i] : = a[i] div 10;           end;           if a[i] = 8           then               amount : = amount + 1;       end;       writeln(amount); end.

Var a1, b1: integer; a, b: char; begin       read(a, b);       case a of       'i': a1 : = 1;       'v': a1 : = 5;       'x': a1 : = 10;       'l': a1 : = 50       end;       case b of       'i': b1 : = 1;       'v': b1 : = 5;       'x': b1 : = 10;       'l': b1 : = 50       end;       if a1 < b1       then           writeln(b1 - a1)       else           writeln(a1 + b1); end.