|
Sin utilizar ninguna variante de división (ni "/" ni "div" ni "mod") lo único que se me ocurre es ir restando un número hasta que sea 0 o negativo
function esdivisiblepor(num, divisor):boolean;
begin
While Num>0 do Num:=Num-divisor;
//supongo que no se puede utilizar dec(num,divisor)
if Num=0 then Result:=True //es divisible por "divisor"
else result:=false;
end;
esdivisiblepor(10, 5) daria como resultado true
esdivisiblepor(49, 5) daria como resultado false
Ahora tan solo te queda emplar un bucle, para ir comprovando para cada divisor que sea necesario
|