Divisores

APÉNDICE
F UNCIÓN ESDI VIS IBLE
Argumento: Dos números enteros
Valor: Devuelve True si el primero es divisible entre el segundo y False
si no lo es.
Código en Basic
public function esdivisible(a,b) as boolean
if int(a/b)=a/b then esdivisible=True else esdivisible=False
end function
F UNCIÓN MENORDIV
Argumento: Un número entero positivo
Valor: Devuelve el menor divisor de dicho número.
Código en Basic
function menordiv(a)
dim n
dim vale as boolean
vale=true (permite seguir el algoritmo)
n=1 (Comenzamos a buscar en el 1)
while vale and n