Deviner le nombre entre 1 et 100
   en moins de coup possible
--------------------------------
PROGRAM:QUELCHIF

Effacer entrées
EffÉcran

0→N:0→R:0→C:0→I
nbrAléatEnt(0,100)→N

Output(1,2,"Trouvez le nombre secret")
Output(3,6,"entre un et cent")
Output(5,1,"en moins de coup possible")
Output(7,6,"à vous de jouer !")
Output(10,2,"[entrer]  pour commencer")

Pause 

EffÉcran
While R≠N
Input "Votre essai ",R
C+1→C
If I<9:Then:I+1→I:End
If R=N:Goto F
If R<N:Then
Output(I,17,"trop petit")
Else
Output(I,17,"trop Grand")
End
End

Lbl F
Output(I+1,5,"Trouvé en")
If C=1
Output(I+1,15,C):Output(I+1,18,"Coup")
Output(I+1,15,C):Output(I+1,18,"Coups")
Pause 
EffÉcran 
Effacer entrées