1)для хранения растрового изображения размером 256х256 пикселей отвели 32 килобайта памяти. каково максимально возможное число цветов в палитре, используемой для создания изображения? 2)производится одноканальная (моно) звукозапись с частотой дискретизации 16 кгц и глубиной кодирования 16 бит. запись длится 1 минуту, ее результаты записываются в файл, сжатие данных не производится. какое из ниже чисел наиболее близко к размеру полученного файла, выраженному в мегабайтах?

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

program prim2; uses crt; var i, n, r: integer; a: array[1.. 10000] of integer; begin clrscr; randomize; write ('число элементов '); readln(n); for i: =1 to n do begin {получаем случайные числа и выводим их на экран.} a[i]: =random(45)-22; write(a[i],' '); end; {в полученном массиве меняем соседние элементы.} i: =1; {пока i< =n-1.} while i< =n-1 do begin {меняем значения соседних элементов. } r: =a[i]; a[i]: =a[i+1]; a[i+1]: =r; {увеличиваем индекс на два.} inc(i,2); end; {распечатываем измененный массив.} for i: =1 to n do write(a[i],' '); readkey; end.