При записи фотографии в память фотоаппарата к ней добавляется служебная информация о дате, месте и параметрах съемки. эта информация занимает ровно 32 кбайта. фотоаппарат позволяет снимать как одиночные фотографии, так и серии из трех фотографий с различными параметрами диафрагмы. в таких сериях указанная выше служебная информация добавляется только к первой фотографии, а к последующим фотографиям серии присоединяется только служебная информация об изменении диафрагмы, в объеме ровно 12 кбайт на каждую. юный фотограф сделал несколько одиночных фотографий и несколько серий, его фотографии имели разрешение 3602 на 2480 точки и глубину цвета 24 бита. фотографии сохраняются без сжатия. другой информации кроме самих фотографий и описанной служебной в памяти нет. какое максимальное количество одиночных фотографий мог сделать фотограф, если известно, что серий ровно в 2 раза меньше, чем одиночных фотографий, а сохраненный объем данных не превышает 512 мбайт? в ответе укажите целое число. решал, решал. у меня не сходится.

3602х2480=8932960 точек в изображении 24 бита = 3 байта 8932960х3=26798880 байт = 26170 кб 512мб = 524288 кб x - одиночные снимки y - серия снимков x(26170+32)+y(26170+32)+y(26170+12)+y(26170+12)=524288 после :   130970y=524288 y=4 x - в два раза больше, тогда одиночных снимков влезет только 8

(см. объяснение)

Объяснение:

Вот код рабочей программы. Программа написана на языке PascalABC.NET версии 3.2, сборка 1325.

P.s: В PascalABC.NET допустимо объявление переменных в теле программы и сразу же их инициализация. В коде ошибок нет. Программа проверена и работает успешно.

begin

 var sum: integer := 0;

 var pr: integer := 1;

 var a:= ArrRandom(50, -10, 32);

 foreach x: integer in a

   do begin

         if(x.isEven()) then sum+= x

         else pr*= x;

      end;

 writeln('Сумма четных элементов массива: ', sum);

 writeln('Произведение нечетных элементов массива: ', pr);

end.

var

 ball: array [1..30] of integer;

 s: string;

 n, i, sum,count: integer;

 sred: real;

begin

 count:=0;

 Writeln('Введите колличество учащихся: ');

 readln(n);

 Writeln('Введите оценки: ');

 for i := 1 to n do

   Read(ball[i]);

 for i := 1 to n do

   if ball[i] > 2 then

   begin

     sum += ball[i];

     Inc(count);

   end;

 sred := sum / count;

 Writeln('Учеников сдавших экзамен: ', count);

 Writeln('Учеников не сдавгих экзамен: ', n-count);

 Writeln('Средняя оценка сдавших: ', sred:6:2);

end.