Скопировать рисунок, а потом его вставить)(ну или как?)
Скорее всего это бит памяти, потому что символ кодируется некоторым кол-ом байт( обычно 1 байт=8бит или в unicode 2 байта=16бит)
<span>8 байтов < 66 битов
3 Мбайт > 3000 Кбайт
1000 бит < 1 Кбайт
200 байт < 0,25 Кбайт</span>
Разрядность кода = log(2)8 = 3 (2^3=8)
000, 001, 010, 011, 100, 101, 110, 111
Const
n = 20;
var
x: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln('Элементы массива');
i := n;
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4);
end;
Writeln;
while (i >= 1) and (x[i] >= 0) do i := i - 1;
if i > 0 then
Writeln('Последний отрицательный элемент x[', i, ']=', x[i])
else
Writeln('Нет отрицательных элементов')
end.
<u>Тестовое решение:</u>
Элементы массива
5 -9 -32 -48 33 2 -41 24 31 -31 -48 -24 -17 45 -41 -23 -1 38 45 14
Последний отрицательный элемент x[17]=-1