Переведем все в десятичную систему счисления:
11011"2"=27"10"
200"3"=18"10"
33"8"=27"10"
102"5"=27"10"
значит сломаны весы под номером 2
I=i*K
i=I/K=366*8(переводим из байт в биты)/732=4
N=2^i=2^4=16
Ответ 16
//PascalABC.Net 3.2
begin
var prod:=1;
var a:=readinteger('a ='); var b:=readinteger('b =');
for var i:=a to b do prod*=i;
write ('Ср. геометрическое: ', prod/(b-a))
end.
Var
x0, xk, dx, e, x, aa: real;
i: integer;
function f(x, a: real): real;
begin
if x < 0 then
f := 1 / Tan(x) + sqrt(1 + abs(x - 2))
else if x = 0 then
f := (a + x) + sin(Pi)
else
f := a * x * cos(x * Pi);
end;
begin
write('Введите промежуток и шаг ([a,b] h) и точность Е ');
readln(x0, xk, dx, e);
write('a =');
readln(aa);
x := x0;
writeln(' x ':10, ' | ', ' F(x,a) ':10);
repeat
writeln(x:10:3, ' | ', f(x, a):10:3);
x := x + dx;
until x >= xk;
end.