<span>a = 4
b = 6
b = 8+a*b = 8+4*6 = 8+24 = 32
a = b/4*a = 32/4*4 = 8*4 = 32</span>
8=2³, поэтому достаточно заменить каждые три двоичные цифры одной восьмеричной. Группы формируем в обоих направлениях, начиная от десятичной точки. Если в самой левой группе будет меньше трех разрядов, дописываем слева недостающие нули. Для самой правой группы дописываем нули справа.
11011.01₂ = 11 011 . 01₂ = 011 011 . 010₂ = 33.2₈
var
a: array[1..50] of integer;
i,f, n: integer;
begin
write('n=');
readln(n);
for i := 1 to n do
begin
write('a', i, '=');
readln(a[i]);
end;
f := 0;
writeln;
for i := 1 to n - 1 do
if (a[i] mod 2 <> 0) and (a[i + 1] mod 2 = 0) then f := 1;
if f = 0 then
begin
for i := 1 to n do
if a[i] < 0 then write(a[i]:4);
end
else
for i := 1 to n do
if a[i] > 0 then write(a[i]:4);
end.
Конечно, слово ИНФОРМЕР, т.к. все остальные слова означают элементы интерфейса
<span />
1 кбайт = 1024 байт.
1 байт =8 бит.
1 кбайт = 1024*8=8192 бит.
0,5 кбайт = 8192/2=4096 бит.
Ответ: 4096 бит.