Скорость передачи данных модемом составляет 56000 бит/с. какое максимальное количество байт может передать этот модем за 1 минуту? 1) 4,1 мбайт 2) 410 кбайт 3) 410000 байт
В 1 минуте 60 секунд. Значит за 1/60м он передает 56 000 бит/с Чтобы узнать кол-во битов в секунду, нужно 56 000 * 60=3 360 000 бит Переводим биты в байты. Т.к. в одном байте - 8 бит. 3,360,000/8=420 000 байт
В одном килобайте - 1024 байта, 420 000/1024= 410,2 кбайт
2. Длинный "школьный" вариант ("почувствуйте разницу")
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 var a:array[1..50] of integer; i,s:integer; begin Randomize; s:=0; for i:=1 to 50 do begin a[i]:=Random(31)-10; Write(a[i],' '); if (a[i]>0) and Odd(i) then s:=s+a[i] end; Writeln; Writeln('Sпол.неч = ',s) end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 procedure MatPrint(a:array[,] of integer); begin for var i:=0 to Length(a,0)-1 do begin for var j:=0 to Length(a,1)-1 do Write(a[i,j]:4); Writeln end end;
procedure MatReplaceOdd(a:array[,] of integer; value:integer); begin for var i:=0 to Length(a,0)-1 do for var j:=0 to Length(a,1)-1 do if a[i,j].IsOdd then a[i,j]:=value end;
begin var n,m:integer; Write('Задайте число строк и столбцов матрицы: '); Read(n,m); var a:=MatrixRandom(n,m,-99,99); Writeln('Исходный массив'); MatPrint(a); MatReplaceOdd(a,26); Writeln('Результирующий массив'); MatPrint(a) end.
Чтобы узнать кол-во битов в секунду, нужно
56 000 * 60=3 360 000 бит
Переводим биты в байты.
Т.к. в одном байте - 8 бит.
3,360,000/8=420 000 байт
В одном килобайте - 1024 байта, 420 000/1024= 410,2 кбайт
410 Кбайт