При переведенні в дискретну форму аналогового сигналу тривалістю 2 хв. 8 с. використовували частоту дискретизації 32 Гц та 16 рівнів дискретизації. Знайти в байтах розмір одержаного стереоаудіофайлу

program HelloWorld;

var a: array of integer;

var N, min, max, i, variable:integer;

begin

   min := 32767;

   max := 0;

   readln(N);

   for i := 0 to N do begin  

       readln(variable);

       if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

           max := variable;

       if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

           min := variable;

   end;

   if (max <> 0) and (min <> 32767) then

       writeln(min, ' ', max)

   else  

       writeln(-1);

end.

Возьмём упрощённую версию строки, состоящую из 15 единиц.

Проделав со строкой все операции можно заметить, что после каждого выполнения программы в строке 9 единиц заменяется на одну, значит после каждого выполнения программы становится на 8 единиц меньше. Будем вычитать из 84 "8", пока не останется >5 единиц, чтобы программа смогла работать.

Получается 84-72=12

Напишем 12 единиц и пропустим их через программу, получится

222111 (сначала первые три единицы заменяются на два, потом ещё раз и ещё раз, т.к. в строке находится 11111. 222 заменится на 1 не может, т.к. в строке больше не найдено "11111".

ответ: 222111