5
Je ne me rappelle plus trop de la syntaxe For...

Faudrait faire un truc du genre
[code:1:d287124d75]For(X,1,C
RandInt(0,1)-> L1(X)
End[/code:1:d287124d75]

Bref, à chaque pile, on a un 1 stoché dans la liste et un 0 pour les Face.
Ensuite faire
[code:1:d287124d75]Sum(L1)->Z
Disp Z[/code:1:d287124d75]

pour avoir le nombre de piles.
On peut rajouter un

[code:1:d287124d75]Disp 10-Z[/code:1:d287124d75]

pour avoir le nombre de face.

Ce ne sont que des idées...
Ma prof de math considaire entre une fct comme programmer sa ti !!!!!
[quote:d1ae84a394="Deus Makina 2010"]
A propos bon aniv de 1 an dinscription et de 1000 msg posté Olivier ! :bravo:[/quote:d1ae84a394]

Merci en effet smile

Pour revenir au sujet, le truc du For rend le programme plus léger en octets.
Tu dois rendre le code source du programme ?
Plus c'est court, mieux c'est !
Essaie ça

[code:1:723bae1fe9]
ClrList L1
ClrHome
Disp "LANCER DE PIECES","A 10 REPRISES"
For(X,1,10
RandInt(0,1)-> L1(X)
End
Sum(L1)->Z
Disp "NOMBRE DE PILES",Z,"FACES",10-Z [/code:1:723bae1fe9]