Algoritmo Matematico, ¿Es Posible?

[Campilongo]

Se me olvido decir que no necesariamente tienes que tener menos de 255 numeros, porque puedes implementar tu propia funcion de pertenecia. Por ejemplo si tu funcion es

function Pertenece(X:integer;var A:ArrInt):boolean;


las preguntas ((R div A[i]) in S) and ((R mod A[i]) in S) pudieran ser reemplazadas por

Pertenece(R div A[i],A) and Pertence(R mod A[i],A)

y si tienes ordenado el arreglo A puedes hacer una funcion prentece eficiente.

Saludos,