// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var k:=ReadInteger('Начальное значение (К):'); var n:=ReadInteger(' Конечное значение (N):'); var notfound:=True; for var i:=k to n do begin var flag:=True; var j:=2; var r:=round(sqrt(i)); while flag and (j<=r) do if i mod j = 0 then flag:=false else j+=1; if flag then begin var s:=i.ToString; if s=s.Inverse then begin Print(i); notfound:=False end end end; if notfound then Writeln(0) end.
Начнем с последнего трехзначного числа, кратного 6:
Это 996. Как известно, признак деления на 9:
Число делится на 9, если сумма его цифр делится на 9
9+9+6 = 24. 24 не делится на 9 нацело, значит 996 подходит под условие
ответ: 996