1) В ASCII каждый символ кодируется одним байтом, поэтому количество байт равно количеству символов. Тогда строка займет 45 байт, страница = 25х45 байт, весь текст - 300х25х45 байт. Выражаем эту величину в килобайтах: 300х25х45/1024 = 329.6 КБайт. Если использовать двухбайтную кодировку UNICODE, объем файла удвоится и составит 659.2 Кбайта. 2) Фотография содержит 3072х2048 пикселей, каждый пиксель кодируется 6 байтами, 1 Кбайт равен 1024 байтам, тогда графический файл будет иметь размер 3072х2048х6/1024=36864 (Кбайт) 3) Скорость передачи данных по сети составляет 48/(2.5х60)=0.32 МБайт/с. Время передачи упакованного файла равно 80-30=50 (с). За это время по сети будет передан файл размером 50х0.32=16 (Мбайт)
Module Module1 Sub Main() Dim Rnd As Random = New Random() Dim A(30) As Integer Dim k As Integer Dim i As Byte For i = 0 To A.Length - 1 A(i) = i 'Rnd.Next(255) WriteLine("A({0}) => {1}", i, A(i)) Next WriteLine() i = 0 For i = 0 To Math.Truncate(A.Length / 2) k = A(i) A(i) = A(A.Length - i - 1) A(A.Length - i - 1) = k Next For k = 0 To A.Length - 1 WriteLine("A({0}) => {1}", k, A(k)) Next ReadKey(False) End Sub End Module
