Пропускная способность некоторого канала связи равна 128 000 быит/с.сколько времени займёт передача по этому каналу файла объёмом 1, 5 мбайт?

объем переводим в биты и делим на скорость:

 

1,5*1024*1024*8/128000 ≈ 99с = 1 мин 39с

Uses crt; var  a1,a2,a3,a4,max: integer; begin  write('введите четыре числа: ');   readln(a1,a2,a3,a4);     if a1 > = a2 then        max : = a1    else          max : = a2;     if a3 > max then        max : = a3 ;     if   a4 > max then        max: =a4;     writeln ('максимальное число - : ', max); readlnend.

Var   i,n,k: integer;   t,s,c: real;   begin   write('c='); read(c);   write('количество чисел: '); read(n);   s: =0; k: =0;   write('вводите: ');   for i: =1 to n do begin       read(t);       if t> c then begin           s: =s+t;           k: =k+1           end       end;   if k> 0 then writeln('среднее арифметическое: ',c/k)   else writeln('нет чисел, превышающих ',c) end. пример c=18.5 количество чисел: 10 вводите: 12.4 15 8.6 -4.12 0 17.34 21 0.12 21.15 19 среднее арифметическое: 6.16666666666667