Есть стек чисел (условно) бесконечной глубины.
Операция (сложение, вычитание, умножение, деление и т. д.) выполняется над элементом(ами) в самом верху стека. Результат отправляется обратно в стек.
Это дает возможность выполнять сложные вычисления с учетом правил приоритета операторов, т. к. можно хранить результаты предыдущих вычислений в стеке.
Например, (5 + 1) * (6 - 2) запишется так:
5 1 + (сейчас в стеке по адресу 0 лежит 6) 6 2 - (сейчас в стеке по адресу -1 лежит 6, а по адресу 0 лежит 4) * (сейчас в стеке по адресу 0 лежит 24).
Стек:
Адрес Число
0 24
-1 -
-2 -
... -
128 =
i = 7 бит (объем одного символа в алфавите Манго)
7 * 150 = 1050 бит (объем сообщения Манго)
64 =
i = 6 бит (объем одного символа в алфавите Кокоса)
6 * 200 = 1200 бит (объем сообщения Кокоса)
1200 + 1050 = 2250 бит (общий объем 2-ух сообщений)
Ответ :
2250 бит
Program abc;var<span> i, j: byte;</span><span> arr1, arr2: array [1..5] of array [1..5] of integer;</span><span> arr: array[1..25] of integer;</span>begin<span> for i := 1 to 25 do</span><span> begin</span><span> arr[i] := i;</span><span> end;</span><span> writeln('array1:');</span><span> for i := 1 to 5 do</span><span> begin</span><span> for j := 1 to 5 do</span><span> begin</span><span> arr1[i][j] := arr[(i - 1) * 5 + j];</span><span> write(' ', arr1[i][j], ' ');</span><span> end;</span><span> writeln();</span><span> end;</span><span> writeln('array2:');</span><span> for i := 1 to 5 do</span><span> begin</span><span> for j := 1 to 5 do</span><span> begin</span><span> arr2[i][j] := arr1[j][i];</span><span> write(' ', arr2[i][j], ' ');</span><span> end;</span><span> writeln();</span><span> end;</span><span>end.</span>
Ответ: А
так как калькулятор предназначе для работы с арефмитическими числами
В одном <span>Кбайте - 1024 байта
2*1024=2048 байт
2048+101=2149</span>