debut
diviseur <-- 2 ecrire('Donner un nombre :'); lire(N); tant que (diviseur^*diviseur < N) et que (N pas divisible par diviseur) faire
diviseur <-- diviseur + 1 fintant que si diviseur*diviseur > N alors ecrire(N,' est un nombre premier.') sinon ecrire(N,' n''est pas premier.') finsi fin
program exo10; var
N, diviseur : integer; begin
diviseur:=2; writeln('Donner un nombre :'); readln(N); while (diviseur*diviseur < N) and (N mod diviseur <>0) do
inc(diviseur); if diviseur*diviseur > N thenwriteln(N,' est un nombre premier.') elsewriteln(N,' n''est pas un nombre premier.') end.
diviseur = 2; printf("Donner un nombre: "); scanf("%d",&n); while ((diviseur*diviseur < n) && (n%diviseur != 0))
diviseur += 1; if (diviseur*diviseur > n) printf("%d est un nombre premier",n); else printf("%d n'est pas un nombre premier",n);
}