Respuesta a algoritmo
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,
|