Что сделать то надо ? напиши, прост я хз
Var
a: array[1..10] of integer;
i, max, imax: integer;
begin
for i:=1 to 10 do
readln(a[i]);
max := 0;
for i:=1 to 10 do
if (a[i] > max) and (a[i] > 4) and (a[i] < 9) then
begin
max := a[i];
imax := i;
end;
writeln(imax);
end.
Ответ:72 бит
Объяснение:1 байт=8 бит 8*9=72 бит
1101100₂<span> = 1∙2</span>⁶+1∙2⁵+0∙2⁴+1∙2³+1∙2²+0∙2¹+0∙2⁰= 64+32+0+8+4+0+0= 108
1101100₂= 108₁₀