EXO3 de l'interro
par Riadh SOUMMARI, Re: EXO3 de l'interro
par Ahror BELAID, Très bien.
Remarque : L'instruction '' if ((cmp<2)or(cmp=2)) then '' peut être simplifiée par '' if (cmp<=2) then ''
Program Premier;
Var N, num, i, a, cmp : integer;
Begin
WriteLN('Introduire un nombre N supérieur à 1');
ReadLN(N);
WriteLN('Les nombres premiers compris entre 1 et N sont :');
for num:=2 to N do
begin
i:=0;
cmp:=0;
repeat
i:=i+1;
a:=num mod i;
if (a=0) then cmp:=cmp+1;
until (i=num);
if ((cmp<2)or(cmp=2)) then Write(num,' ');
end;
WriteLN;
End.
Re: EXO3 de l'interro
par MEHDI ZENINE, Salam,