Автоматическая камера производит растровые изображения размером 1280х1280 пикселей. при этом объём файла с изображением не может превышать 1.4 мб, упаковка данных не производится. какое максимальное количество цветов можно использовать в палитре? (решение, )

1,4 Мбайт = 1,4*1024 Кбайт = 1,4*1024*1024 байт = 1,4*1024*1024*8 бит
Объем одной точки = 1,4*1024*1024*8  / (1280*1280) = 7,168 ≈ 7 бит
Максимальное количество цветов = 2^7 = 128 

1 Задача
1) Начало
2) i = 1
2.1) K = i^2
2.2) Вывод K
2.3) i = i + 1
2.4) i > 5 ?
Если Да, возвращаемся на 2.1)
Если Нет, окончание цикла.
3) Конец.

2 Задача
1) Начало
2) k = 0 (счетчик нечетных чисел)
3) Ввод первого числа A1
3.1) Если [A1 / 2] < A1 / 2, то k = k + 1 (ввели нечетное число)
4) Ввод второго числа A2
4.1) Если [A2 / 2] < A2 / 2, то k = k + 1 (ввели нечетное число)
5) Ввод третьего числа A3
5.1) Если [A3 / 2] < A3 / 2, то k = k + 1 (ввели нечетное число)
6) Вывод k
7) Конец

3 Задача
1) Начало
2) Объявление массива А() пока неизвестного размера (динамического)
3) i = 1
3.1) Ввод очередного числа A(i)
3.2) Если A(i) = 0, то переход на 4)
3.3) i = i + 1
3.4) Возврат на 3.1)
4) Переопределение динамического массива A(i) размером i элементов.
5) Конец

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(5,6,-30,30);
  a.Println(4); Writeln(4*a.ColCount*'-');
  if a.ElementsByRow.Any(t->t=0) then Writeln('Есть нулевые элементы')
  else Writeln('Нет нулевых элементов')
end.

Пример
*** Исходная матрица ***
  16  -8 -16   6  24  -9
   1  -9  26  30   0   5
   7  23  10   3 -15  -4
   8  18  -3 -14 -23  18
  -6  27  -1  20  18 -25

Есть нулевые элементы