Savoir par quel nombre est divisible un nombre

[Ollivier]

0 est divisable par: Rien

Il n'y a pas un chiffre qui soit divisable.
Un nombre est divisable dans le sens où ses chiffres peuvent être séparés.
Exemple: 12345 devient 12 et 345.
C'est un terme plus utilisé pour les modifications cadastrales que pour les mathématiques.

"Divisible" évoque la division arithmétique.

Ensuite 0 est divisible par tous les nombres non nuls.
0/100 = 0
0/1 = 0

[Micoute]

Bonjour à tous, c'est mieux de mettre NombreDivisiblePar(Nombre, 2, nombre-1) pour éviter d'écrire la valeur de nombre à la fin du listing.

Code : Tout sélectionner

Procedure.s NombreDivisiblePar(Nombre.Q, DiviseurMinimum.Q, DiviseurMaximum.Q)
  Protected Resultat$
  
  If Nombre > 0
    For Diviseur = DiviseurMinimum To DiviseurMaximum
      If Nombre % Diviseur = 0
        Resultat$ + Str(Diviseur) + ", "
      EndIf
    Next
    
    If Resultat$ = ""
      Resultat$ = "Rien, "
    EndIf
  EndIf
  
  ProcedureReturn Left(Resultat$, Len(Resultat$) - 2)
EndProcedure

For Nombre = 0 To 1000
  Debug Str(Nombre) + " est divisible par: " + NombreDivisiblePar(Nombre, 2, nombre-1)
Next

[djes]

Pour ceux qui lisent en diagonale...

0 est divisable par: Rien

Il n'y a pas un chiffre qui soit divisable.
Un nombre est divisable dans le sens où ses chiffres peuvent être séparés.
Exemple: 12345 devient 12 et 345.
C'est un terme plus utilisé pour les modifications cadastrales que pour les mathématiques.

"Divisible" évoque la division arithmétique.

Ensuite 0 est divisible par tous les nombres non nuls.
0/100 = 0
0/1 = 0