Врезультате преобразования растрового изображения количество цветов в палитре увеличилось до 1024. информационный объем изображения увеличился в 2 раза. какое количество цветов было в палитре этого изображения до изменения? заранее огромное !

Ответ: 32 информационный   объем определяется по формуле i=i*k   где i глубина палитры (n=2^i) n-количество цветов к-количество  точек изображения пусть 2^x   количество цветов до преобразования i2/i1=i2/i1= 10/x =2(по условию)                                 1024=2^10 x=5 бит тогда количество цветов  2^5=32

Var   str, str1: string;   arr: array [1..256] of byte;   i, i2: byte;   err: integer; begin   readln(str);       str : = concat(str, ' ');   for i : = 1 to length(str) do   begin     if (str[i] = ' ') then     begin       i2 : = i2 + 1;       val(str1, arr[i2], err);       str1 : = '';     end     else       str1 : = concat(str1, str[i]);   end;         for i : = 1 to length(str) do     write(arr[i]: 4); end.

Var   a, b, c: real; begin   readln(a, b, c);   if (sqr(b) - 4 * a * c < 0) then     writeln('нет решений')   else     if (sqr(b) - 4 * a * c = 0) then       writeln('x = ', (-1 * b) / (2 * a))     else     begin       writeln('x1 = ', (-1 * b + sqrt(sqr(b) - 4 * a * c)) / (2 * a));       writeln('x2 = ', (-1 * b - sqrt(sqr(b) - 4 * a * c)) / (2 * a));     end; end.