<em>var a, b, i, c :integer;</em>
<em>begin</em>
<em> read (a, b); </em><em>// вводим a и b </em>
<em> for i:=1 to 5 do</em>
<em> begin</em>
<em> c:=random(b-a)+a; </em><em>// присваиваем рандомные числа в заданном </em><em>промежутке</em>
<em> writeln (c); </em><em>// выводим число</em>
<em> end;</em>
<span><em>end.</em></span>
Готово, даже удалось избежать создания самого массива)
Т.к мы работаем в 8 разрядности, смотрим чтобы в двоичном числе было 8 элеентов, если их меньше то добавляем нули впереди(слева)
1)
Для получения обратного кода просто меняем 1 на 0, а 0 на 1
<span>00100110=11011001
</span>2)
Для получение дополнительного кода сначала находим обратный код
<span>00100101=11011010
</span>Затем к обратному коду прибавляем 1
11011010+1=11011011
<span>а) A2:B10
Тут строки от 2 до 10 (всего 9) и колонки от А до В (всего 2).
Они образуют 9 х 2 = 18 ячеек.
</span>б) C13:E20
<span>Тут строки от 13 до 20 (всего 8) и колонки от С до Е (всего 3).
Они образуют 8 х 3 = 24 ячейки.</span>