Камера снимает 60 кадров в секунду, с разрешением 1920 на 1080 точек, при этом используется 24-разрядное кодирование цвета. Также записывается стереозвук: две звуковых дорожки с частотой 44100 Гц и глубиной кодирования 32 бит. Видео мы записываем на жесткий диск, на котором указана емкость «1 терабайт». Но мы знаем, что производители жестких дисков при переводе из байтов в килобайты, из килобайтов в мегабайты и т.д. используют коэффициент не 1024 (как для объема оперативной памяти), а 1000. То есть реальная емкость диска в привычных нам двоичных единицах измерения будет не 1024 гигабайта, а меньше.
Изначально наш жесткий диск был совершенно пуст. Но мы уже отсняли 20 минут видео!
Сколько минут видео мы еще можем отснять?
ответ округлите в меньшую сторону до целого числа, в ответе укажите только число.

Задача 1

I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)

i = I / K

K = 1024 * 512 = 524288 пикселей

I = 1 Mb = 1 * 1024 * 1024 * 8 бит = 8388608 бит

Глубина цвета бит

Кол-во цветов в палитре цветов

ответ: 65536.0

Задача 2

I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)

i = I / K

K = 256 * 128 = 32768 пикселей

I = 16 Kb = 16 * 1024 * 8 бит = 131072 бит

Глубина цвета бит

Кол-во цветов в палитре цветов

ответ: 16.0

var

 n, k, s, sa: integer;

begin

 k := 0;

 s := 0;

 sa := 0;

 writeln('Введите последовательность, окончание ввода - число 0');

 repeat

   read(n);

   if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;

   if (n <> 0) and (n < 100) then inc(k);

   sa := sa + n

 until n = 0;

 readln;

 writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);

 writeln('Количество чисел, не больших 100, равно ', k);

 writeln('Сумма последовательности равна ', sa);

 readln

end.

Объяснение: