Задача 1. Несжатое растровое изображение размером 64 х 512 пикселей занимает 32 Кб памяти. Каково максимально возможное число цветов в палитре изображения?

Задача 2. Вычислите необходимый объём видеопамяти для графического режима, если разрешение экрана монитора составляет 1024 х 768 пикселей, глубина цвета 24 бита.

Задача 3. Какой объём видеопамяти необходим для хранения графического изображения при разрешении монитора 256 х1024 пикселей, где каждая точка может иметь один из 512 цветов?

Задача 4. 32-цветный рисунок содержит 10 Кбайт информации. Определите количество пикселей в этом рисунке?

Задача 5. Для хранения изображения размером128 х 128 точек выделено 16Кбайта памяти. Определите какое максимальное число цветов допустимо использовать в этом случае.

Задача 6.(бонус) В процессе преобразования растрового графического изображения количество цветов уменьшилось с 262144 до 16. Во сколько раз уменьшится объём памяти?

program figyri;

uses crt,graphABC;

var xc,yc:integer;

   m:integer;

begin

xc:=windowwidth div 2;

yc:=windowheight div 2;

repeat

write ('Введите число');

read (m);

if m>2 then

   begin

     setpencolor(clGreen);

     rectangle(xc-100,yc-100,xc+100,yc+100);

     floodfill(xc,yc,clGreen);

     readkey;

    end;

if m<2 then      

   begin

     setpencolor(clRed);

     line (xc-100,yc+50,xc+100,yc+50);

     line (xc+100,yc+50,xc,yc-100);

     line(xc,yc-100,xc-100,yc+50);

     floodfill(xc,yc,clRed);

     readkey;

    end;

if m mod 2=0 then

    begin

     setpencolor(clBlue);

     circle (xc,yc,100);

     floodfill(xc,yc,clBlue);

     readkey;

    end;

until not(m in [1..4]);

end.

как то так

если введенное число больше двух, то квадрат

если меньше, то треугольник

если кратно, то круг

можно выбрать по разному, будет ли введенное число больше или меньше какого то числа, будет ли оно положительным или отрицательным и т.д

```

var a:array[1..100,1..100]of integer;

N, M, i, j, mini, minj, maxi, maxj :integer;

begin

write('N, M -> ');

readln(N, M); {считываем размер матрицы}

write('Input matrix -> ');

for i:=1 to N do for j:=1 to M do

begin

 write('A[',i,',',j,'] -> ');

 readln(a[i, j]);

end; {считываем саму матрицу}

readln;

mini:=1;

minj:=1;

maxi:=2;

maxj:=2;

for i:=1 to N do for j:=1 to M do if a[i,j] > a[maxi, maxj] then

begin

 maxi := i;

 maxj := j;

end else if a[i, j] < a[mini, minj] then

begin

 mini := i;

 minj := j;

end;

writeln('MAX = A[',maxi,',',maxj,'] = ', a[maxi, maxj]);

writeln('MIN = A[',mini,',',minj,'] = ', a[mini, minj]);

readln;

end. ```