Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 18 Avr 2011, 20:36
Je te ferais bien bosser plutôt que recopier, mais ce type de programme est si répandu qu'il y aura forcément l'un d'eux qui te parviendra.
Et j'ignore tes compétences.
Voici le mien compliqué mais rapide.
Code
{0->L1
0->B
Prompt N
iPart(racine(N->A
For(I,1,A
If iPart(N/I)=N/I
Then
B+2->B
I->L1(B-1)
N/I->L1(B
End
End
If B=2 and prod(L1)=/=1
Disp "PREMIER
SortA(L1
Pause L1
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
