Input N
While N=1
.....
......
......
......
If (somme des diviseurs)=N
Then
Disp "Nombre Parfait",N
Else
Disp "Nombre pas parfait",N
End

Bonjour,
Je te propose:

Entrer N
Somme=0
Pour I variant de 1 partie entière de racine carrée de N
Si N/I = Partie entière de N/I alors Somme=Somme+I+N/I
I suivant
Si Somme=N+1 alors N est premier Sinon N n'est pas premier

Ca te va?

Euh ce n'est pas premier mais parfait que je cherche

Qu'est-ce que c'est un nombre parfait?

C'est un nombre dont la somme de ses diviseurs est égal à lui même

Impossible. Il y a au moins 1 et lui même. La somme des diviseurs est donc au minimum égale à lui même + 1.