// xcas version=0.7.4 fontsize=20 font=0 // fltk 7Fl_Tile 23 -165 920 52 20 0 [ // fltk N4xcas23Comment_Multiline_InputE 23 -165 920 51 20 0 plutot qu'un tableur, on montre ici un petit programme répondant à la question 1ab£c'est plus formatteur que le tableur, et il n'y a qu'une boucle avec un test tres simple , // fltk N4xcas10Log_OutputE 23 -114 920 1 20 0 ] , // fltk 7Fl_Tile 23 -111 920 281 20 0 [ // fltk N4xcas7EditeurE 23 -111 920 213 20 0 149 , propriete(m):={ local n,res; res:=NULL; pour n de 0 jusque m faire si irem(n^2+11,n+11)==0 alors res:=res,n; fsi; fpour return res; }:;, // fltk N4xcas10Log_OutputE 23 102 920 45 20 0 // Parsing propriete£// Success compiling propriete£ , // fltk N4xcas8EquationE 23 147 920 23 20 0 "Done" ] , // fltk 7Fl_Tile 23 172 920 54 20 0 [ // fltk N4xcas19Multiline_Input_tabE 23 172 920 30 20 0 p:=propriete(121); // on peut essayer des nombres plus grands pour vérifier le 2/ , // fltk N4xcas10Log_OutputE 23 202 920 1 20 0 , // fltk N4xcas8EquationE 23 203 920 23 20 0 0,1,11,22,33,55,121 ] , // fltk 7Fl_Tile 23 228 920 54 20 0 [ // fltk N4xcas19Multiline_Input_tabE 23 228 920 30 20 0 simplifier(n^2+11-(n+11)*(n-11)) , // fltk N4xcas10Log_OutputE 23 258 920 1 20 0 , // fltk N4xcas8EquationE 23 259 920 23 20 0 132 ] , // fltk 7Fl_Tile 23 284 920 31 20 0 [ // fltk N4xcas23Comment_Multiline_InputE 23 284 920 30 20 0 Si n^2+11=0 mod n+11 alors 132=0 mod n+11 donc n<=121. On verifie ensuite les valeurs trouvees. , // fltk N4xcas10Log_OutputE 23 314 920 1 20 0 ] , // fltk 7Fl_Tile 23 317 920 200 20 0 [ // fltk N4xcas19Multiline_Input_tabE 23 317 920 27 20 0 pour j in p faire print(irem(132,j+11)); fpour , // fltk N4xcas10Log_OutputE 23 344 920 150 20 0 0£0£0£0£0£0£0£ , // fltk N4xcas8EquationE 23 494 920 23 20 0 1 ] , // fltk 7Fl_Tile 23 519 920 31 20 0 [ // fltk N4xcas23Comment_Multiline_InputE 23 519 920 30 20 0 on peut aussi chercher les diviseurs de 132 et retrancher 11 , // fltk N4xcas10Log_OutputE 23 549 920 1 20 0 ] , // fltk 7Fl_Tile 23 552 920 54 20 0 [ // fltk N4xcas19Multiline_Input_tabE 23 552 920 30 20 0 l:=idivis(132) , // fltk N4xcas10Log_OutputE 23 582 920 1 20 0 , // fltk N4xcas8EquationE 23 583 920 23 20 0 [1,2,4,3,6,12,11,22,44,33,66,132] ] , // fltk 7Fl_Tile 23 608 920 54 20 0 [ // fltk N4xcas19Multiline_Input_tabE 23 608 920 30 20 0 l-[11$size(l)] , // fltk N4xcas10Log_OutputE 23 638 920 1 20 0 , // fltk N4xcas8EquationE 23 639 920 23 20 0 [-10,-9,-7,-8,-5,1,0,11,33,22,55,121] ] , // fltk 7Fl_Tile 23 664 920 31 20 0 [ // fltk N4xcas19Multiline_Input_tabE 23 664 920 30 20 0 , // fltk N4xcas10Log_OutputE 23 694 920 1 20 0 ]