Скорость передачи данных через модемное подключение равна 56 кбит/сек. передача файла по времени заняла 3 минуты. определите размер файла в мегабайтах. если можно решение скиньте
В случае постоянного и бесперебойного Интернет-соединения (что бывает крайне редко) задача имеет следующее решение: 1) За секунду передаётся 56 Килобит информации. Три минуты - это 180 секунд. 2) Поскольку передача файла заняла 180 секунд, нужно умножить количество информации в секунду на 180 для того, чтобы определить исходный размер файла: 3) 56(Кбит/секунду) * 180(секунд) = 10080(Кбит). 4) Один байт эквивалентен 8 битам. В одном Мегабайте 1024 Килобайта. Делим полученное значение на 8, а затем на 1024, чтобы определить размер файла в Мегабайтах: 5) 10080 / 8 / 1024= 1,23046875(Мб). ответ: исходный размер файла приблизительно составляет 1,23046875 Мб. Удачи!
type mas100_100 = array[1..100, 1..100] of integer;
var a1, a2, a3: mas100_100; i, j, m, n: integer;
procedure InitializeMatrix(var a: mas100_100; m, n: integer); var i, j: integer; begin writeln('Данные матрицы'); for i := 1 to m do begin for j := 1 to n do if handsfree then begin a[i, j] := random(30); write(a[i, j]:2, ' ') end else read(a[i, j]); writeln; end; end;
begin writeln('Введите размер матриц'); readln(m, n);
InitializeMatrix(a1, m, n); InitializeMatrix(a2, m, n);
writeln('Вывод результата'); for i := 1 to m do begin for j := 1 to n do begin a3[i, j] := a1[i, j] * a2[m + 1 - i, n + 1 - j]; write(a3[i, j], ' '); end; writeln; end;
type mas100_100 = array[1..100, 1..100] of integer;
var a1, a2, a3: mas100_100; i, j, m, n: integer;
procedure InitializeMatrix(var a: mas100_100; m, n: integer); var i, j: integer; begin writeln('Данные матрицы'); for i := 1 to m do begin for j := 1 to n do if handsfree then begin a[i, j] := random(30); write(a[i, j]:2, ' ') end else read(a[i, j]); writeln; end; end;
begin writeln('Введите размер матриц'); readln(m, n);
InitializeMatrix(a1, m, n); InitializeMatrix(a2, m, n);
writeln('Вывод результата'); for i := 1 to m do begin for j := 1 to n do begin a3[i, j] := a1[i, j] * a2[m + 1 - i, n + 1 - j]; write(a3[i, j], ' '); end; writeln; end;
1) За секунду передаётся 56 Килобит информации. Три минуты - это 180 секунд.
2) Поскольку передача файла заняла 180 секунд, нужно умножить количество информации в секунду на 180 для того, чтобы определить исходный размер файла:
3) 56(Кбит/секунду) * 180(секунд) = 10080(Кбит).
4) Один байт эквивалентен 8 битам. В одном Мегабайте 1024 Килобайта. Делим полученное значение на 8, а затем на 1024, чтобы определить размер файла в Мегабайтах:
5) 10080 / 8 / 1024= 1,23046875(Мб).
ответ: исходный размер файла приблизительно составляет 1,23046875 Мб.
Удачи!