17 juillet 2015

3 messages - Retourner à l'article
  • Juillet 2015, 3ème défi

    le 17 juillet 2015 à 13:18, par zgreudz

    J’en ai trouvé 3 :

    In[1] := FromDigits /@
    Select[IntegerDigits /@
    Select[
    Range[100, 999], Divisible[#, 45] &],
    (Mean[#] - #[ [ 2] ]) == 0 &]

    Out[1]= 135, 630, 765

    Répondre à ce message
  • Juillet 2015, 3ème défi

    le 17 juillet 2015 à 14:10, par Bernard Hanquez

    J’en trouve six : 135, 315, 360, 630, 675 et 765

    Répondre à ce message
    • Juillet 2015, 3ème défi

      le 17 juillet 2015 à 21:48, par zgreudz

      Ha oui ! Moi je n’ai considéré que l’ordre de gauche à droite (ou de droite a gauche) donc tels que le chiffre central est la moyenne des chiffres extrêmes...mais en relisant l’énoncé je crois que votre point de vue est le bon.

      Répondre à ce message
Pour participer à la discussion merci de vous identifier : Si vous n'avez pas d'identifiant, vous pouvez vous inscrire.