Камера снимает видео без звука с частотой 60 кадров в секунду, при этом изображения используют палитру, содержащую 2^16 = 65536 цветов. 1 минута видео в среднем занимает 24 Мегабайт. При записи файла на сервер полученное видео преобразуют так, что его частота кадров уменьшается до 20 кадров в секунду, а изображения преобразуют в формат, содержащий палитру из 256 цветов. Другие преобразования и иные методы сжатия не используются. Сколько Мбайт в среднем занимает 3 минуты преобразованной видеозаписи?
var a,b, I, maxsumm, max : integer;
function summdel(x:integer):integer; //результат - сумма делителей х
var k,sum:integer;
begin
sum:=0;
for k := 1 to x div 2 + 1 do
if x mod k = 0 then sum:= sum+k;
summdel:=sum;
end;
begin
writeln('Введите границы a,b ');
readln(a,b);
maxsumm := 1;
max := 1;
for i := a to b do
begin
if summdel(i) > maxsumm then
begin maxsumm:= summdel(i);
max := i;
end;
end;
writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
end.