- Code: Select all
Prompt N
0→S
For (I,1,N/2)
N-I*ent(N/I)→J
If J=0
S+I→S
End
If S=N
Disp "parfait"
en version ti nspire cas Merci pour votre aide
Prompt N
0→S
For (I,1,N/2)
N-I*ent(N/I)→J
If J=0
S+I→S
End
If S=N
Disp "parfait"
Request "saisir N : ",n
0→s
For i,1,n/2
n-i*int(n/i)→j
If j=0
s+i→s
EndFor
If s=n
Disp "parfait"
Return to Problèmes divers / Aide débutants
Users browsing this forum: ClaudeBot [spider] and 23 guests