Critères de divisibilité

Utiliser les critères de divisibilité par 2,3 et 5

\title{Critères de divisibilité}
\range{-5..5}
\author{Odile Bénassy}
\email{obenassy@free.fr}
\license{GNU GPL}
\computeanswer{no}
\format{html}
\precision{10000}
 
\integer{a1=random(1,2,3,4,5,6,7,11,13,17,19,23)}
\integer{divisiblepar2= \a1 isin 246? 1:2}
\integer{divisiblepar3= \a1 isin 36? 1:2}
\integer{divisiblepar5= \a1=5? 1:2}
\integer{res1= \a1 isin 65432? 1:\a1}
 
\integer{a2=random(1,2,3,5,6,7,11)}
\if{\divisiblepar2=2}{\integer{divisiblepar2= \a2 isin 246? 1:2}}
\if{\divisiblepar3=2}{\integer{divisiblepar3= \a2 isin 36? 1:2}}
\if{\divisiblepar5=2}{\integer{divisiblepar5= \a2=5? 1:2}}
\integer{res2= \a2 isin 65432? \res1:\a2*\res1}
 
\integer{a3=random(1,2,3,5)}
\if{\divisiblepar2=2}{\integer{divisiblepar2= \a3 isin 246? 1:2}}
\if{\divisiblepar3=2}{\integer{divisiblepar3= \a3 isin 36? 1:2}}
\if{\divisiblepar5=2}{\integer{divisiblepar5= \a3=5? 1:2}}
\integer{res3= \a3 isin 65432? \res2:\a3*\res2}
 
\integer{a4=random(1,2,3,5)}
\if{\divisiblepar2=2}{\integer{divisiblepar2= \a4 isin 246? 1:2}}
\if{\divisiblepar3=2}{\integer{divisiblepar3= \a4 isin 36? 1:2}}
\if{\divisiblepar5=2}{\integer{divisiblepar5= \a4=5? 1:2}}
\integer{res4= \a4 isin 65432? \res3:\a4*\res3}
 
\integer{a=\a1*\a2*\a3*\a4}
\integer{isfirst= \divisiblepar2=1? 2:0}
\if{\isfirst=0}{\integer{isfirst= \divisiblepar3=1? 3:0}}
\if{\isfirst=0}{\integer{isfirst= \divisiblepar5=1? 5:0}}
 
\text{divisibilite=est divisible par,n'est pas divisible par}
\text{good1=item(\divisiblepar2, \divisibilite)}
\text{good3=item(\divisiblepar3, \divisibilite)}
\text{good5=item(\divisiblepar5, \divisibilite)}
\text{parite=est pair., est impair.}
\text{good2=item(\divisiblepar2, \parite)}
\text{estnestpas=est, n'est pas}
\text{good4=item(\divisiblepar3, \estnestpas)}
\text{est0ou5=est 0 ou 5., n'est ni 0 ni 5.}
\text{good6=item(\divisiblepar5, \est0ou5)}
                                                                              
\steps{choice 1, choice 2, choice 3, choice 4, choice 5, choice 6,
reply 1}
                                                                              
\statement{
                                                                              
\if{\step<=1}{
<p>\a \embed{choice 1} par 2 car \a \embed{choice 2}
<p>\a \embed{choice 3} par 3 car la somme de ses chiffres \embed{choice 4} dans la table de 3.
<p>\a \embed{choice 5} par 5 car le chiffre des unités \embed{choice 6}
}
\if{\step=2}{
\if{\divisiblepar2=1}{
<p>Je divise \a par 2 autant de fois que c'est possible en obtenant un résultat entier et un reste égal à zéro. Je note le résultat.
}
\if{\divisiblepar3=1}{
\if{\isfirst=3}{
<p>Je divise \a par 3 autant de fois que c'est possible en obtenant un résultat entier et un reste égal à zéro. Je note le résultat.
}{<p>Je divise ce résultat par 3 autant de fois que c'est possible en obtenant un résultat entier et un reste égal à zéro. Je note le résultat.
}
}
\if{\divisiblepar5=1}{
\if{\isfirst=5}{
<p>Je divise \a par 5 autant de fois que c'est possible en obtenant un résultat entier et un reste égal à zéro. Je note le résultat.
}{<p>Je divise ce résultat par 5 autant de fois que c'est possible en obtenant un résultat entier et un reste égal à zéro. Je note le résultat.
}
}
<p><i>Finalement,</i> je trouve : \embed{reply 1,3}.
}
}
                                                                              
\choice{}{\good1}{\divisibilite}
\choice{}{\good2}{\parite}
\choice{}{\good3}{\divisibilite}
\choice{}{\good4}{\estnestpas}
\choice{}{\good5}{\divisibilite}
\choice{}{\good6}{\est0ou5}
\answer{}{\res4}{\type=numeric}