Скорость передачи данных по некоторому каналу равна 515 кбит/с. передача файла по этому каналу связи заняла 4 мин. определите размер файла в мегабайтах ( ответ округлить до целых )

Для начала переведём кбит/с в мбайт/с. для этого 515/8=64,375 кбайт/с и 4120/1024=0,062866 мбайт/с можно перевести в бит/с, тогда 515 кбит/с умножим на 1024 и получим 527360 бит/с. дальше умножаем на 240 секунд (4 минуты = 240 секунд). если переводили в мбайт/с, тогда 0,062866 мбайт/с * 240 с = 15,0878 мбайт, а если переводили в бит/с, то 527360 бит/с * 240 с = 126566400 бит = 126566400/8/1024/1024 мбайт = 15,0878 мбайт. округляем, получается 15 мбайт. ответ: 15.

//pascalabc.net 3.0 begin   var a : = arrrandom(24, 3, 76);   writeln('затрачиваемое учениками время: ');   a.println;   writeln('среднее время: ', a.average : 0 : 2); end. //fpc / turbo pascal var   a, i, sum: integer; begin   writeln('затрачиваемое учениками время: ');   for i : = 1 to 24 do   begin       a : = random(74) + 3;       sum : = sum + a;       write(a, ' ');   end;   writeln;   writeln('среднее время: ', sum / 24 : 0 : 2); end.

Var   i, j, m, n: integer;   a, b: array[0..9] of boolean;   begin   for i : = 0 to 9 do a[i] : = true;   write('введите количество чисел: ');   read(m);   write('введите числа: ');   for i : = 1 to m do   begin       for j : = 0 to 9 do b[j] : = false;       read(n);       if n = 0 then a[0] : = true;       while n < > 0 do       begin           b[n mod 10] : = true;           n : = n div 10;       end;       for j : = 0 to 9 do a[j] : = a[j] and b[j];   end;   for i : = 0 to 9 do if a[i] then write(i, ' '); end.