 |
Apprendre Maple
Site dédié au logiciel de calcul formel Maple
|
| Voir le sujet précédent :: Voir le sujet suivant |
| Auteur |
Message |
ramo
Inscrit le: 22 Fév 2004
Messages: 2
|
 Posté le: 12 Mar 2004 23:59 Sujet du message: SumDigitFactorials |
 |
|
je voudrais ecrire un programme qui me donne tous les entiers verifiant
N=a_n.a_(n-1)....a_1.a_0=Sum (a_i !,i=0..n) .(en system decimale).
j'ai pu montrer que 10<N<10^7.
merçi de me donner une idée , j'ai des problémes surtout avec les chiffres de N en systeme decimale . |
|
| Revenir en haut de page |
|
 |
ALS
Inscrit le: 11 Sep 2006
Messages: 647
|
| Posté le: 15 Mar 2004 12:01 Sujet du message: Re: SumDigitsFactorial |
|
|
La procédure facDigits retourne la somme des factorielles des chiffres de n :
| Code: |
> facDigits:=proc(n::nonnegint)
> local L,n1,q,i,k,l;
> n1:=n; L:=NULL; i:=floor(log10(n1))+1: l:=i:
> while n1>0 do
> i:=i-1:
> q:=floor(n1/10^i):
> n1:=n1-q*10^i:
> L:=L,q
> end do:
> if nops([L])<l then
> for k from 1+nops([L]) to l do L:=L,0 end do
> end if:
> convert(map(x->x!,[L]),`+`)
> end proc:
>
> facDigits(23074);
5073
> L:=NULL: maxi:=10^5: k:=0:
> while k<maxi do
> k:=k+1:
> if k=facDigits(k) then L:=L,k:print(k," est solution"): fi
> od:
1, " est solution"
2, " est solution"
145, " est solution"
40585," est solution"
|
Je n'ai exploré que les solutions dans [1..100000]. Il y a 4 solutions dans cet intervalle |
|
| Revenir en haut de page |
|
|
ramo
Inscrit le: 22 Fév 2004
Messages: 2
|
| Posté le: 15 Mar 2004 23:04 Sujet du message: |
|
|
| merçi beaucoup. |
|
| Revenir en haut de page |
|
|
|
|
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum
|
Développé par phpBB © 2001, 2006 phpBB Group
Traduction par : phpBB-fr.com
Apprendre Maple - ©
- Alain Le Stang - Navigation optimisée pour une résolution 1024 x 768.
|
Page d'accueil
FAQ
Rechercher
Liste des Membres
Groupes d'utilisateurs
S'enregistrer
Profil
Se connecter pour vérifier ses messages privés
Connexion
