!set title=Ecriture réduite d'une somme 4.
!if $wims_read_parm!=$empty
 !goto $wims_read_parm
!endif
oef2wims_version=3.22
language=fr
author=Guerimand Fabrice
email=fwguerima@free.fr
computeanswer=no
precision=10000

ansorder=r
varcnt=15
prevarcnt=14
postvarcnt=0
replycnt=1
choicecnt=0
conditioncnt=0
feedbackcnt=0
format=html

val1=$imagedir
val2=$confparm1
val3=$confparm2
val4=$confparm3
val5=$confparm4

!if $testcondition=yes
 !goto test
!endif
!if $status=waiting
 !exit
!endif

val6=50x50x50
val7=$[rint(4)]
tmp0=!randitem 2,3,5,6,7,10

val8=$[rint($(tmp0))]
tmp0=!randint 2, 15

tmp1=!randint 2, 15

tmp2=!randint 2, 15

tmp3=!randint 2, 15

val9=$(tmp0),$(tmp1),$(tmp2),$(tmp3)
tmp0=!randitem -1,1

tmp1=!randint 2, 15

tmp2=!randitem -1,1

tmp3=!randint 2, 15

tmp4=!randitem -1,1

tmp5=!randint 2, 15

tmp6=!randitem -1,1

tmp7=!randint 2, 15

val10=$(tmp0)*$(tmp1),$(tmp2)*$(tmp3),$(tmp4)*$(tmp5),$(tmp6)*$(tmp7)
val11=
val12=$[rint(0)]
!for val13 =1 to $val7 
val14=$[rint(($(val9[$val13]))^2*$val8)]
val15=$[rint($(val10[$val13]))]

!ifval $val15>0 and $val13>1
val16=+
!else
val16=
!endif
val11=$val11 $val16 $val15\sqrt{$val14}
val12=$[rint($val12+($val15)*($(val9[$val13])))]
!next
val17=$val12*sqrt($val8)
replytype1=algexp
replyname1=Réponse
replygood1=$val17
question=__EXECUTED_1692754_EXERCISE__
hint=__EXECUTED_1692754_EXERCISE__

!goto stat

!exit

:question
$()Ecrire le nombre 
!insmath $val11
$() sous la forme 
!insmath a\sqrt{b}
$() où 
!insmath b
$() est un entier le plus petit possible.<br>	(vous devez taper sqrt(2) pour 
!insmath \sqrt{2}
$() ) 
$()
!exit

:hint
$()Faire apparaitre 
!insmath \sqrt{$val8}
$() dans chacun des termes de la somme.
$()
!exit

:help
$()
$()
!exit

:solution
$()
$()
!exit

:feedback

!exit

:test

!exit

:stat
vsavelist=8,11
embedcnt=0
