Оценить, сколько дипломных работ вместится на лазерном диске ёмкостью 420 мбайт если одна работа составляет в средним 60 страниц по 45 строк в строке 30 символов

Дипломная работа выполняется на компьютере, поэтому один введенный символ имеет веc i=8 бит тогда информационный объем   одной  дипломной работы   9 бит * 60*45*30=729000  бит=91125 байт  ≈ 89 кбайт количество работ на диске равно     420 мбайт / 89 кбайт =430080 кбайт / 89 кбайт =4832  ответ 4832

Const n=20; var a: array[1..n] of integer; i,j,t,x,i1,i2: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21); write(a[i],' ') end; writeln; for i: =1 to n-1 do for j: =1 to n-i do if a[j]< a[j+1] then  begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end; writeln('отсортированный массив: '); for i: =1 to n do write(a[i],' '); writeln; write('x = '); readln(x); i1: =1; i2: =n; repeat i: =(i1+i2) div 2; if a[i]> x then i1: =(i1+i2) div 2+1; if a[i]< x then i2: =(i1+i2) div 2-1; until (a[i]=x)or(i1> i2); if a[i]=x then  begin  writeln('искомый(ые) номер(а) элемента(ов): '); while (i> 0)and(a[i]=x) do i: =i-1; i: =i+1; while (i< =n)and(a[i]=x) do begin write(i,' '); i: =i+1;   end; end else writeln('элемент не найден'); writeln; end. pascal abc.

//pascalabc.net //версия 3.3, сборка 1634 (14.02.2018) function maxcnt(self: sequence of integer): integer; extensionmethod; begin   var (max,k): =(integer.minvalue,1);   foreach var v in self do     if v> max then (max,k): =(v,1)     else if v=max then k+=1;   result: =k     end; begin   readseqintegerwhile(t-> t< > 0).maxcnt.println; end. пример: 12 15 61 8 7 8 20 20 5 51 54 61 30 61 0 78 94 94 94 94 94 3