Рас­смот­рим такие x, при ко­то­рых скоб­ка (ДЕЛ(x, 10) → ¬ДЕЛ(x, 18)) будет лож­ной. Это x, ко­то­рые де­лят­ся без остат­ка од­но­вре­мен­но на 10 и на 18. Наи­мень­шее общее крат­ное этих чисел равно 90.

Сле­до­ва­тель­но, для х  =  90 вы­ра­же­ние ¬ДЕЛ(x, А) долж­но быть лож­ным, то есть число 90 долж­но де­лить­ся на А < 50. Наи­боль­шим таким А яв­ля­ет­ся число 45. Это и будет ответ.

Ответ: 45.

При­ведём дру­гое ре­ше­ние на языке Python.

При­ведём ре­ше­ние Сер­гея Донец на языке PascalABC.NET.

begin
var d:=50*10*18;//пе­ре­мно­жа­ем име­ю­щи­е­ся числа
for var A := 49 downto 1 do
if(1..d).All(x->(A < 50)and(not x.Divs(A)<=(x.Divs(10)<=not x.Divs(18))))
then begin A.Print;break end
end.