Скопируйте этот текст в Word Document с таблицами заголовком и т.д не пытайтесь туда вставить данную фотку...

Преобразуем     ( применяем формулу a→b=¬a+b)
(x&15 =0) ∪(x&35=0)∪(x&A≠0) =1
   ( то есть, в данном случае, если Х при поразрядном умножении на 15 и 35 не даёт 0, то при умножении на А тоже не даёт 0)
15 (10сс) =1111 (2сс);   35(10сс) = 100011(2сс)
Проверяем поразрядно:  (в 2сс)
x=1    x&1111 =0    x&100011=0  ( x&A≠0) =1
x=10              =0                    =0                =1
x=100            =0                    =1                  = 0 или1
x=1000          =0                    =1                   = 0 или1
  и так далее

В первых двух строках x&1111 ложно, x&100011 ложно,
значит х&А  обязательно должно быть истинно. Число А, логическое  произведение которого на числа x=1 и х=10 (в2сс)  не даёт 0 есть число 11(2сс)
11 (2сс) = 3 (10сс)                 ответ 3

ответы программы (наименьшее значение из трёх):

1) 0.0828638516274247

2) 0.164832693219929

3) 0.145644125326545

Два текста программы (отличия во вводе икс и нахождения наименьшего):

var

x,a,b,c: real;

begin

write('x= ');

read(x);

a:=Exp(Power(Sin(x),2));

b:=1+Exp(Abs(x))/(1+Ln(Abs(Power(x,1/3;

c:=Tan(x/2)/(2+0.8*Power(x,4));

writeln('a= ',a);

writeln('b= ',b);

writeln('c= ',c);

write('min= ');

if a<b then

if a<c then write(a) else write(c)

else

if b<c then write(b) else write(c);

end.

var x,a,b,c: real;

begin

x:=ReadReal('x=');

a:=Exp(Power(Sin(x),2));

b:=1+Exp(Abs(x))/(1+Ln(Abs(Power(x,1/3;

c:=Tan(x/2)/(2+0.8*Power(x,4));

writeln('a= ',a);

writeln('b= ',b);

writeln('c= ',c);

write('min= ',Min(Min(a,b),c));

end.