Black Templar
Admin
Nombre de messages : 356
Age : 35
Localisation : Lille (France)
language de prog : Liberty BASIC; HTML; CSS; php; MySQL; C
expérience en prog : Amateur
Date d'inscription : 06/08/2005
 |  Sujet: Tester si un nombre est premier Mer 8 Fév - 12:35 | |
| teste tout simplement si un nombre est premier. - Code:
-
[start]
input "Nombre : ";n
if n<2 goto [start]
if n/2 = int(n/2) and n<>2 goto [NonP]
for z = 3 to sqr(n) step 2
if n/z = int(n/z) goto [NonP]
next
print a;" est un nombre premier !"
end
[NonP]
print a;" n'est pas un nombre premier !"
| |
|
