§3.: документ объёмом 16 мбайт можно передать с одного компьютера на другой двумя способами.а. сжать архиватором, передать архив по каналу связи, распаковать.б. передать по каналу связи без использования архиватора.какой способ быстрее и на сколько секунд, если· скорость передачи данных по каналу связи составляет 220 бит в секунду, · объём сжатого архиватором документа равен 25% от исходного, · время, требуемое на сжатие документа, – 18 секунд, на распаковку – 2 секунды?

Канал у вас что-то уж совсем узенький : ) 1. способ с архивированием. архивация: 18 с. передача: 4*1024*1024*8: 220~=152520,145 с. распаковка: 2 с. итого: 18+152520,145+2=152540,145 с. 2. способ без архивирования. передача: 16*1024*1024*8: 220=610080 с. конечно, с архивированием, почти вчетверо быстрее : )

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('ср.арифм. положительных: ',a.elementsbyrow.where(x-> x> 0).average) end. пример количество строк в массиве: 5 12 количество столбцов в массиве: *** исходный массив [5,12] ***   99 -73 -67  46 -95 -79  23  98 -53 -58  83 -12   68  62 -75 -25 -29    2 -22    5 -75 -83 -22  31   -41 -68  29  68 -92  95  97 -30 -23 -85  -5 -59   21 -99  57  43  -4  39  30  74 -14  55 -81  24   -43  96    3 -97  31  74 -52  82  48    1 -13  73 ср.арифм. положительных: 51.9

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! procedure view(fams: array of string; balls: array[,] of integer); begin   for var i: =0 to fams.length-1 do begin       write(fams[i],': ');       balls.row(i).println       end end; begin   var n: =readlninteger('количество студентов: ');   var m: =readlninteger('количество оценок у студента: ');   var afam: =new string[n];   var aball: =new integer[n,m];   for var i: =0 to n-1 do begin       afam[i]: =readlnstring('студент '+(i+1)+': ');       write('оценки студента: ');       for var j: =0 to m-2 do read(aball[i,j]);       readln(aball[i,m-1]);       end;   writeln('*** принятые сведения ***');   view(afam,aball);   var s: =aball.rows.select(x-> x.all(y-> y=           .where(x-> not x[1]).select(x-> x[0]-1).toarray;   var n1: =s.count;   if n1> 0 then begin       var t: =new string[n1];       var t1: =new integer[n1,m];       for var i: =0 to n1-1 do begin           t[i]: =afam[s[i]];           for var j: =0 to m-1 do t1[i,j]: =aball[s[i],j]           end;       afam: =copy(t);       aball: =copy(t1);       writeln('*** после удаления отличников ***');       view(afam,aball);       end end. пример количество студентов: 5 количество оценок у студента: 3 студент 1: иванов и.и. оценки студента: 5 4 5 студент 2: петров п.п. оценки студента: 5 5 5 студент 3: сидорова т.с. оценки студента: 5 5 5 студент 4: козлова к.к. оценки студента: 4 4 3 студент 5: макаров м.м. оценки студента: 4 5 4 *** принятые сведения *** иванов и.и.: 5 4 5 петров п.п.: 5 5 5 сидорова т.с.: 5 5 5 козлова к.к.: 4 4 3 макаров м.м.: 4 5 4 *** после удаления отличников *** иванов и.и.: 5 4 5 козлова к.к.: 4 4 3 макаров м.м.: 4 5 4