Nombre premier
Résolu
ghizl01
Messages postés
4
Statut
Membre
-
Sacabouffe Messages postés 10427 Statut Membre -
Sacabouffe Messages postés 10427 Statut Membre -
Bonjour,j'arrive plue à resoudre cet exercice s'il vous plait aidez moi
ecrire un algorithme qui permet de lire un nombre et de trouver le plus petit nombre premier strictement supérieur à ce nomdre donné
ecrire un algorithme qui permet de lire un nombre et de trouver le plus petit nombre premier strictement supérieur à ce nomdre donné
A voir également:
- Nombre premier
- Nombre de jours entre deux dates excel - Guide
- Nombre facile - Télécharger - Outils professionnels
- Ascii nombre de caractères - Guide
- Gto nombre episode - Forum Cinéma / Télé
- Great Teacher Onizuka SAISON 2 - Forum Cinéma / Télé
4 réponses
voila ce ke jé fait et je sait pas si c'est vrai ou faux:
dim n,m,j
n=inputbox("donner un nbre")
for j=1 to n
m=n+j
if premier(m)=true then
msgbox (m & " est premiere")
end if
next
'function premier (n)
function premier (x)
dim i
for i=2 to x-1
if x mod i=0 then
premier=false
exit function
end if
next
dim n,m,j
n=inputbox("donner un nbre")
for j=1 to n
m=n+j
if premier(m)=true then
msgbox (m & " est premiere")
end if
next
'function premier (n)
function premier (x)
dim i
for i=2 to x-1
if x mod i=0 then
premier=false
exit function
end if
next