Объяснение:
110010 = 1∙2^5+1∙2^4+0∙2^3+0∙2^2+1∙2^1+0∙2^0 = 32+16+0+0+2+0 = 50
Var a:array[1..10] of Integer ;
p,i:integer;
Begin
p:=1;
WriteLn('Массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
if a[i]<0 then p:=p*a[i];
end;
WriteLn;
WriteLn('Произведение отопительных элементов = ',p)
end.
Информация уменьшилась в 6 раз(2^6), всего шаров 64
Для начала подсчитаем количество символов, а их 54
Дано:
x=54
b=1Байт
Vi=?
Решение:
Vi=x*b=54*1=54Байт
Если нужен ответ в битах, то просто умножим 54 на 8 и получим 432бит