Определите глубину цвета использованной палитры для создания изображения разрешением 2048 на 1024 пикселей и объёмом 2 мбайта

(2*1024*1024) / (2048*1024) = 1 байт = 8 бит

// Программы на писаны на PascalABC.NET

// 7.6:

var

 number: integer;

Begin

 For number := 1000 to 9999 do

   if ((number mod 133 = 125) and (number mod 134 = 111)) then

     WriteLn(number);

End.

// Нашлось одно единственное число: 1987

___________________________

// 7.7

var

 Sum, a, b, c, count: integer;

Begin

 count := 0;

 

 // Число 500 не проверяется, т.к. очевидно, что 5 + 0 + 0 != 15

 For a := 1 to 4 do

    For b := 0 to 9 do

      For c := 0 to 9 do

      begin

        Sum := a + b + c;

       

        if (15 = Sum) then

          count := count + 1;

      end;

 

  WriteLn('Кол-во искомых чисел: ', count);

End.

// Кол-во искомых чисел: 26

const

 N=10;

var

 a:array[1..N]of integer;

 i,count,sum,t,max,min:integer;

begin

randomize;

sum:=0; count:=0; t:=0;

max:=-21; min:=21;

for i:=1 to N do

 begin

   a[i]:=random(41)-20;

   write(a[i]:4);

   sum:=sum+abs(a[i]);

   if a[i] mod 9 = 2 then  

     begin

       inc(count);

       t:=t+a[i];

     end;

   if max<a[i] then max:=a[i];

   if min>a[i] then min:=a[i];

 end;

writeln; writeln('Sum: ',sum);

        writeln('Count(x/9=2): ',count);

        writeln('SumOst: ',sum-t);

        writeln('Min: ',min,'  Max: ',max );

        writeln('Min*Max: ',min*max);

end.