Нужна ! про целое положительное число а сделаны четыре утверждения: "а делится на 5", "а делится на 11", " а делится на 55", "а меньше 10". известно, что два из этих утверждения истинны, а два ложны. чему может равняться а? укажите все варианты, объясните, почему других вариантов нет?

Если А делится на 55, то оно делится на 5 и на 11. Это уже три утверждения, но истинными могут быть только два. То есть А не делится на 55.
Если А делится на 11, нам нужно выбрать еще два истинных утверждения. Но делимость на 5 и на 55 будут следовать друг из друга, а меньше 10 А быть не может, т.к. 11 больше 10.
Остается только вариант, когда А меньше 10, делится на 5, не делится на 11 и 55. Т.е. А = 5

№12. Записать логическое выражение определяющее, что число А является трёхзначным.

ответ: if len(str(A)) == 3: print(True)

№13. Записать условие, которое является истинным, когда только одно из чисел A, B и С меньше 45.

ответ: if (A < 45 and B >= 45 and C >= 45) or (B < 45 and A >= 45 and C >= 45) or (C < 45 and B >= 45 and A >= 45): print(True)

№14. Записать условие, которые является истинным, когда целое А не кратно трём и заканчивается нулем.

ответ: if not A % 3 == 0 and A % 10 == 0: print(True)

№15. Записать логическое выражение, которое определяет, принадлежит ли число А интервалу от -137 до -51 или интервалу от 123 до 55.

ответ: if (A > -137 and A < -51) or (A > 55 and A < 123): print(True)

uses crt;

var n,m,i,p:longint;

   s,k:byte;

begin

clrscr;

repeat

write('Введите натуральное число N=');

readln(n);

until n>0;

m:=n;

s:=0;

while m>0 do

begin

 s:=s+m mod 10;

 m:=m div 10;

end;

writeln('Числа от 1 до ',n-1,', у которых произведение цифр=',s);

k:=0;

for i:=1 to n-1 do

begin

 m:=i;

 p:=1;

 while m>0 do

  begin

   p:=p*(m mod 10);

   m:=m div 10;

  end;

 if p=s then

  begin

   k:=1;

   write(i,' ');

  end;

end;

if k=0 then write('Таких чисел нет');

readln

end.

Объяснение: