Далее считаем объем, занимаемый иллюстрациями:
2520*3=7560 мегабайт. Делим на 1024 и получаем 7,3828125 гигабайт.
Складываем полученные суммы: 1+7,3828125=8,3828125 гигабайт. Что превышает объем флеш-карты. Соответственно в несжатом виде «рукопись» не поместится.
2)
а) Из предыдущей задачи мы знаем, что символ кодируется 16 битами. Соответственно, чтобы получить объем, занимаемый одной книгой перемножаем 256*128*64*16=33 554 432 бита = 4 194 304 байта = 4 096 кБ = 4 мегабайта. Чтобы узнать сколько книг поместится на жесткий диск необходимо объем жесткого диска умножить на 1024 (получим объем в мегабайтах): 160 Гбайт *1024 = 163 840 мегабайт. Теперь делим объем жесткого диска на объем одной книги: 163 840 / 4 = 40 960 книг.б) Теперь перемножаем количество книг на 3 сантиметра и получаем высоту стопки книг: 40 960*3=122 880 см.
Внимание! Если программа не работает, обновите версию!
function Min(a:array of integer):=a.Min;
procedure Max(a:array of integer; var mx,imx:integer);
begin
imx:=a.IndexMax; mx:=a[imx]; imx+=1;
end;
begin
var a:=ReadArrInteger('А:',5);
var b:=ReadArrInteger('B:',7);
var c:=ReadArrInteger('C:',9);
var emax,imax,gmax,lmin:integer;
gmax:=Min(a);
Max(a,emax,imax); Writeln('A: min=',gmax,', маx=',emax,' [',imax,']');
lmin:=Min(b);
Max(b,emax,imax); Writeln('B: min=',lmin,', маx=',emax,' [',imax,']');
gmax:=Max(gmax,lmin);
lmin:=Min(c);
Max(c,emax,imax); Writeln('C: min=',lmin,', маx=',emax,' [',imax,']');
gmax:=Max(gmax,lmin);
Writeln('Максимальный из минимумов равен ',gmax)
end.