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.
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.
(http://i45.tinypic.com/35i62cm.jpg)
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.
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