Если компьютер одновременно отображает на экране 39 разных цветов то сколько битов данных необходимо на кодирование цвета каждой точки экрана? сколько в этом случае потребуется байтов, кбайтов, что бы запомнить в компьютере квадратный рисунок, длина стороны которого равна 100 точками?

Так как каждая точка это 8 бит. что бы было заполнено 39 клеток то нужно 8*39=312 что бы заполнить 100*100 нужно 100*100*8=625 бит 625/1024=0,6  байта

Вроде здесь уже решал такое : ) //pascal var   n, a, b, c: integer; begin   n : = 1;   repeat       repeat           writeln(' ведите стороны a,b,c ', n, ' - треугольника');           readln(a, b, c);       until ((a > 0) and (b > 0) and (c > 0)) and ((a + b) > = c);       writeln('периметр равен ',a + b + c);       n : = n + 1;   until n > 25; end.

Const n = 10; var a: array[1..n]of integer;   min,imin,i,oldmin: integer; begin   //заполнение массива значениями в диапазоне   //от -100 до 100   //и одновременно находим минимальный элемент элемент   min: =100;   for i: =1 to n do begin       a[i]: =random(201)-100;       if a[i]< = min then       begin           min: =a[i];           imin: =i; //запомним index минимального       end;       write(a[i]: 5);   end;   writeln;     //в цикле сдвигаем элементы массива   //до индекса минимального включительно на   //одну позицию вправо   for i: =imin downto 2 do       a[i]: =a[i-1];       a[1]: =min;   //вывод элементов массива   for i: =1 to n do write(a[i]: 5);   end.