Сопоставьте команды и их назначение команды выполняет действия только при условии истинности команда отвечающая за конечное выполнении действий заключённых внутри внутрь конструкции команда отвечающая за выполнение действия определенное количество раз
begin
var m:=ReadInteger('Количество элементов в массиве А (m):');
var n:=ReadInteger('Количество элементов в массиве B (n):');
var k:=ReadInteger('Позиция вставки k (1<k<m):');
if (k>1) and (k<m) then begin
var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
Writeln('Результат вставки'); (a[:k]+b+a[k:]).Println
end
else Writeln('Вы нарушили условие 1<k<m')
end.
Тестовое решение
Количество элементов в массиве А (m): 10
Количество элементов в массиве B (n): 6
Позиция вставки k (1<k<m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Результат вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26
24/8 = 3, столько весит один символ в байтах. Я поделил кол-во битов на 8, потому что так легче конвентировать значение в килобайты.
3*72*768*64 = вес символа * кол-во страниц * кол-во строк * колво символов = 10 616 832 байт. Делим результат на 1024 и получаем ответ в килобайтах - 1024(что равно одному мегабайту). Домножаем результат на стоимость килобайта и выясняем, что Дядя Фёдор должен Чебурашке две тонны апельсинов. 2048, если конкретно.
(У Чебурашки будет диабет. Гарантирую.)
Сообщение объёмом 214 бит равно 214/8/1024=0,03 килобайтам
Сообщение объёмом 220 битов содержит 0.03(0.027) килобайт
2
4
1