А где сама задача? ты можешь прислать фотографию задания , или написать
Sub aaa()
s = InputBox("Введите строку")
n = CInt(InputBox("Введите длину N"))
m = Len(s)
If m > n Then
s = Right(s, n)
Else
If m < n Then s = String(n - m, ".") + s
End If
MsgBox "Результат: " + s, vbInformation
End Sub
Объём файла в битах равен 8·1024·625 (8 — количество битов в байте, 1024 — количество байтов в киболайте).
Время передачи = (8·1024·625)/(128·8·125) = 40
Объяснение:
Например:дети 40кг одежда 3кг сумка 2кг вещи 5 кг удачки 10кг обувь 1 кг рыба 20 кг 40+3+2+5+1+20=71 вот так вроде