Определите, за сколько секунд будет передан файл размером 10 Кбайт, если скорость передачи данных равна 2048 бит в секунду. (В ответе укажите одно число — количество секунд без единицы измерения)
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
№1
begin var (a,k):=ReadInteger2('Укажите количество рабочих и служащих:'); Writeln('Заработок работника равен ',624750/(a+k)) end.
Пример Укажите количество рабочих и служащих: 15 6 Заработок работника равен 29750
№2
begin var y:=ReadReal('Укажите скорость ходьбы, км/ч:'); var x:=ReadReal('Мальчик пробежал, км: '); Writeln('Затрачено времени на бег, ч: ',x/(3*y):0:2) end.
Пример Укажите скорость ходьбы, км/ч: 5.2 Мальчик пробежал, км: 12 Затрачено времени на бег, ч: 0.77
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
№1
begin var (a,k):=ReadInteger2('Укажите количество рабочих и служащих:'); Writeln('Заработок работника равен ',624750/(a+k)) end.
Пример Укажите количество рабочих и служащих: 15 6 Заработок работника равен 29750
№2
begin var y:=ReadReal('Укажите скорость ходьбы, км/ч:'); var x:=ReadReal('Мальчик пробежал, км: '); Writeln('Затрачено времени на бег, ч: ',x/(3*y):0:2) end.
Пример Укажите скорость ходьбы, км/ч: 5.2 Мальчик пробежал, км: 12 Затрачено времени на бег, ч: 0.77
Чтобы решить эту задачу, необходимо сначала всё привести к одинаковым единицам измерения. Удобнее будет перевести в байты.
10 кбайт = 10240 байт
2048 бит = 256 байт
Узнаем время, за которое файл будет передан:
10240 ÷ 256 = 40 секунд.