1. камера делает фотоснимки размером 640х480 пикселей. на хранение одного кадра отводится 250 кбайт. найдите максимально возможное количество цветов в палитре изображения. 2. после преобразования растрового 256-цветного графического файла в черно-белый (2 цвета) его размер уменьшился на 7кбайт. каков был размер исходного файла в кбайтах. с условием

Задача 1.
1. Находим количество точек (пикселей) в кадре 640×480 = 307200
2. Находим размер палитры 250×1024×8/307200 = 6 бит (отбрасываем дробную часть после деления)
3. Количество цветов в палитре не может превышать 2⁶ = 64

Пояснение: 250 Кбайт = 250×1024 байт = 250×1024×8 бит.

Задача 2.
1. Находим объем исходной палитры
256 = 2⁸, поэтому объем составит 8 бит
2. Находим объем новой палитры
2=2¹, поэтому объем составит 1 бит.
3. Находим, во сколько раз уменьшится объем файла
8/1=8 - в восемь раз.
4. Если первоначальный объем был Х, то новый станет Х/8. Уменьшение объема составит X-X/8 = 7X/8 и это равно 7 Кбайт.
Тогда 7Х=7*8 Кбайт, откуда Х=8 Кбайт

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

procedure LocationPrint(x, y: real);

begin

 if x = 0 then

   if y = 0 then Writeln('Начало координат')

   else Writeln('Ось Y')

 else

 if y = 0 then Writeln('Ось X')

   else

 if x > 0 then

   if y < 0 then Writeln('Четвертая четверть')

   else Writeln('Первая четверть')

     else

 if y < 0 then Writeln('Третья четверть')

 else Writeln('Вторая четверть')

end;

begin

 loop 2 do

 begin

   var (x, y) := ReadReal2('Введите координаты x и y:');

   LocationPrint(x, y)

 end

end.

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var n:=ReadInteger('Количество строк (столбцов) в матрице:');

 Writeln('*** Исходная матрица ***');

 var a:=MatrRandom(n,n,-99,99);

 a.Println(4);

 Println(4*a.ColCount*'-');

 var i:=ReadInteger('Укажите номер столбца (счет от 1):');

 if i.InRange(1,a.ColCount) then

 begin

   var col:=a.Col(i-1);

   Println('Сумма элементов столбца',col.Sum,'max=',col.Max)

 end

 else

   Println('Недопустимый номер колонки')

end.