je ne comprends pas pourquoi j'obtiens cette erreur avec ce code :
- Code: Select all
Defin ordre(k,n)=
Prgm
Local w
1 -> w
If test(k,n)=0
Then errCode erreur
Else
While remain(k^w,n) <>1
w+1 ->w
EndWhile
EndIf
Disp w
EndPrgm
Voyez-vous ce qui ne va pas ?
Merci de votre aide