Identifier les nombres premiers
par
, 10/01/2020 à 15h16 (435 Affichages)
Bonjour,
Je partage cette solution qui permet la détection des nombres premiers dans une colonne.
Cordialement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 proc fcmp outlib=work.pack1.MyFunc1; function MyFunc1(var$) $10; length var1 $10; do i =2 to int(sqrt(var)); if mod(var,i)=0 then do; var1="NbrNPre"; leave; end; else do; var1="NbrPre"; end; end; return (var1); endsub; quit;