nombre premier version 2

Aller en bas

nombre premier version 2

Message  Admin le Ven 11 Mar - 13:08

program premier;
uses wincrt;
var j,r,i:integer;
begin
for j:=1 to 100 do {c’est le meme traitement ici, juste avec l’ajout de la boucle for}
begin
r:=0;
for i:=1 to j do
if j mod i = 0 then r:=r+1;

if r=2 then write(j,' ');
end;
end.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum