miércoles, 8 de mayo de 2013

PRIMEROS 15 NÚMEROS PRIMOS CON MIENTRAS


HACER UN ALGORITMO QUE MUESTRE LOS PRIMEROS 15 NUMEROS PRIMOS

Proceso NUMEROS_PRIMOS
 NUMERO<-1;
 x<-0;
  mientras x<15 Hacer
DIVISOR<-1;
 CEROS<-1;
 MIENTRAS DIVISOR<NUMERO Hacer
  RESPUESTA<-NUMERO MOD DIVISOR;
  SI RESPUESTA=0 ENTONCES
  CEROS<-CEROS+1
  FINSI
  DIVISOR<-DIVISOR+1;
 FinMientras
SI CEROS<=2 ENTONCES
 Escribir numero;
 x<-x+1;
FINSI
numero<-numero+1;
FinMientras
FinProceso

1 comentario: