Proceso quince_primeros
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
No hay comentarios:
Publicar un comentario