Il donne les nombres premiers dans un intervalle entre z et a.
- Code: Select all
Define LibPub premier(z,a)=
Prgm
l1:={}
While z<a
z+1→z
If string(isPrime(z))="true" Then
Disp z
l1[dim(l1)+1]:=z
EndIf
EndWhile
DelVar z
EndPrgm
Define LibPub premier(z,a)=
Prgm
l1:={}
While z<a
z+1→z
If string(isPrime(z))="true" Then
Disp z
l1[dim(l1)+1]:=z
EndIf
EndWhile
DelVar z
EndPrgm
kinkazma wrote:
- Code: Select all
...
If string(isPrime(z))="true" Then
...
© hors programme
nliste:=1
©Dans le programme
expr("liste"&string(nliste)&":={}")
...
nliste:=nliste+1
Users browsing this forum: ClaudeBot [spider] and 3 guests