[Pascal] Calculadora de numero primos.

[chivo]

Hola a todos estaba revisando el baul para ver que posteaba y consegui un que no habia posteado este:

Lo que realmente hace es decirte cuanto numero primo has ingresado.

Programado en pascal.

Código: pascal

Program Divisores;
  uses crt;
  Var N,I,C:longint;

Function ConDiv(X:longint) : longint;
  Var C,I: longint;
  Begin
    C := 1;
    For I:= 1 to X div 2 do
        if X mod I = 0 then
           C := C + 1;
    ConDiv := C;
  End;


Begin
  clrscr;
  write('Introduzca el Numero: '); read(N);

  For I := 1 to N do
    if ConDiv(I) <= 2 then
       write(I,'  ');

  readkey;
end.

Bueno pense como demostrarle algun ejemplo y lo quize hacer sobre mi windows xp chimbo.



Como se ve en la imagen coloque ( 8 ) como ejemplo desde entonces se ven los numeros primos. Como lo son " 1, 2, 3, 5 7 "

Saludos.

[UpecBlack]

esta bueno el codigo , se podria mejorar mas y resolver algunos detalles que estan mal unos de ellos el 1 , fijate q el 1 no es primo por lo tanto no lo deberia mostrar