Будет один если х неизвестин
Если я правильно понял что это двоичная система, то
Var
a,p: integer;
begin
p:=1;
a:=1;
while a<>0 do begin
write('Введите a:');readln(a);
if a mod 2<> 0 then p:=p*a;
end;
writeln('произведение нечетных: ',p);
end.
1) <span>i=1
2) по стратегии 4 вопроса </span><span>i=log2*12=4 бита
3) не знаю</span>