Nombre: Fabrizio Jesus Mere Juarez Codigo: U18100698

EJERCICIOS
Escriba Las fórmulas que usará para resolver las siguientes preguntas,
identifique los datos necesarios y escriba el algoritmo correspondiente.

[Link] un número entero N y calcule y muestre su factorial N!, por ejemplo:

Si el número es 4, su factorial es: 4*3*2*1= 24
Proceso Factorial
Definir N,F,I como entero
Escribir "Ingrese el numero"
Leer N
F<-1
I<-1
Mientras I<=N hacer
F<- F*I
I<- I+1
FinMientras
Escribir "El numero factorial es:", F
FinProceso
2. Determinar la cantidad de dígitos que tiene un número entero y además
mostrar la suma de los dígitos pares e impares.
Proceso Par o Impar
Definir num Como Entero
Leer num
cd<-0
sumpar<-0
sumimpar<-0
Mientras num>0 Hacer
digito<-(num MOD 10)
Si digito MOD 2=0 Entonces
sumpar<-sumpar+1
Sino
sumimpar<-sumimpar+1
FinSi
cd<-cd+1
FinMientras
Escribir “La cantidad de dígitos es:“,cd
Escribir “La suma de sus dígitos impares es:“,sumimpar
Escribir “La suma de sus dígitos pares es:”,sumpar
Finproceso
4. A una fiesta asistieron personas de diferentes edades y sexos. Construir
un algoritmo dadas
las edades y sexos de las personas. Calcular:
- Cuántas personas asistieron a la fiesta
- Cuántos hombres y cuantas mujeres
- Promedio de edades por sexo
- La edad de la persona más joven que asistió –No se permiten menores de
edad a la fiesta
- Ingresar datos hasta que se ingrese la edad cero
Proceso sin_titulo
Escribir "introduce el numero de personas invitadas";
Leer limite;
Dimension Vedad(10)
Dimension Vsexo(10)
i<-0;
contadorhombre<-0;
contadormujer<-0;
contadorm<-0;
contadorf<-0;
Para i<-1 Hasta limite Con Paso 1 Hacer
Escribir "introduce tu edad";
Leer edad;
Si (edad<18) Entonces
Escribir "no tienes edad para entrar";
Sino
Vedad(i)<-edad;
Escribir "¿eres hombre o mujer?";
Leer sexo;
Si sexo="hombre" Entonces
contadorhombre<-contadorhombre+1;
contadorm<-contadorm+edad;

FinSi
Si sexo="mujer" Entonces
contadormujer<-contadormujer+1;
contadorf<-contadorf+edad;
FinSi

Vsexo(i)<-sexo;
FinSi

FinPara
promedioh<-contadorm/contadorhombre;
promediom<-contadorf/contadormujer;

Escribir "escribe el numero de personas que asistieron a la fiesta ", limite;

 Escribir "mujeres que asistieron: ",contadormujer;
Escribir "hombres que asistieron: ",contadorhombre;
Escribir "el promedio de edad de hombres es: ",promedioh;
Escribir "el promedio de edad de mujeres es:",promediom;

Para i<-1 Hasta limite Con Paso 1 Hacer

Escribir Vsexo(i);
Escribir Vedad(i);
FinPara

temp<-Vedad(1);
Para j<-1 Hasta limite Con Paso 1 Hacer
Si Vedad(j)<temp Entonces
temp<-Vedad(j);
FinSi
FinPara
Escribir "la menor edad de los asistentes es: ",temp;
FinProceso

6. En un estadio se tienen 5 tipos diferentes de localidades, las cuales se

identifican por un valor comprendido entre 1 y 5. Los precios de cada
localidad, y los datos referentes a las ventas de boletos para el próximo
juego se proporcionan como sigue:
 Calcule e imprima la cantidad de boletos vendidos de cada tipo
 Calcule e imprima la recaudación total del estadio.
Inicio
p1, p2, p3, p4, p5 real
l1=0, l2=0, l3=0, l4=0, l5=0 int
clave, cantidad int
total_rec=0 real
print "precio localiad 1 :"
read p1
print "precio localiad 2 :"
read p2
print "precio localiad 3 :"
read p3
print "precio localiad 4 :"
read p4
print "precio localiad 5 :"
read p5
print "clave localidad: "
read clave
print "cantidad de boletos: "
read cantidad
switch (clave)
case 1: l1=l1+ cantidad
print "numero de boletos localidad 1:",cantidad
print "total=",(p1*cantidad)
case 2: l2=l2+ cantidad
print "numero de boletos localidad 2:",cantidad
print "total=",(p2*cantidad)
case 3: l3=l3+ cantidad
print "numero de boletos localidad 3:",cantidad
print "total=",(p3*cantidad)
case 4: l4=l4+ cantidad
print "numero de boletos localidad 4:",cantidad
print "total=",(p4*cantidad)
case 5: l5=l5+ cantidad
print "numero de boletos localidad 5:",cantidad
print "total=",(p5*cantidad)
while (clave !=-1 and cantidad !=-1)
print "cantidad total localidad 1 :",l1
print "cantidad total localidad 2 :",l2
print "cantidad total localidad 3 :",l3
print "cantidad total localidad 4 :",l4
print "cantidad total localidad 5 :",l5
total_rec=(l1*p1)+(l2*p2)+(l3*p3)+(l4*p4)+(l5*p5)
print "recaudacion total de boletos es=",total_rec
Fin

7. Una clase consta de n estudiantes (con 1<=n<=50), cada uno de los cuáles
cursa 5 materias. Para cada alumno se ingresa, clave y las 5 calificaciones.
Escriba un algoritmo para calcular el promedio entero y una barra horizontal
de asteriscos como representación gráfica del promedio.
string PROMEDIO (float N[L])
float P = 0;
int p;
for (int i = 0 ; i<5; i++)

    P = P + N[i];
P = P/5;
p= (int)P;
if (p <> 12)
   return (string) p;
   return "-";
Para las potencias:
float POTENCIA (float m, int n) \\ retorna m^n
   float M = 1;
   for (int i=1; i<= n; i++)     M = M*m;
   return M

8. Construir un programa que determine la potencia de mn siendo m un

número real y n un número entero. Considere que n puede ser positivo,
negativo o cero. No use ningún método Math.
string PROMEDIO (float N[L])
float P = 0;
int p;
for (int i = 0 ; i<5; i++){
    P = P + N[i];
P = P/5;
p= (int)P;
if (p <> 12)
   return (string) p;

else
   return "-";
Para las potencias:
float POTENCIA (float m, int n) \\ retorna m^n
   float M = 1;
   for (int i=1; i<= n; i++)     M = M*m;
   return M;
Ver más en [Link] - [Link]
9. Hacer un programa que calcule el sueldo mensual de N empleados de una
empresa. Se ingresa el nombre, número de días trabajados, faltas por cada
empleado. También se pide el monto total de sueldos de todos los
empleados. El número de empleados que ganan entre 2500 y 3500. El
número de empleados que ganan menos de 1000 o más de 4000. Considere
constante el pago por día a cada empleado y que el descuento por día de
falta es de 100%
del pago diario.
Proceso SueldoMensualDeNEmpleados
empleados_menos_1000 <- 0;
empleados_entre_2500_y_3500 <- 0;
empleados_mas_4000 <- 0;
sueldos_de_todos <- 0;
Escribir Sin Saltar "Ingrese el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
Escribir Sin Saltar "Ingrese el nombre:";
Leer nombre;
Escribir Sin Saltar "Ingrese el valor de dias trabajados:";
Leer dias_trabajados;
Escribir Sin Saltar "Ingrese el valor de faltas:";
Leer faltas;
Escribir Sin Saltar "Ingrese el valor de pago por dia:";
Leer pago_por_dia;
sueldo_mensual <- (dias_trabajados-faltas)*pago_por_dia;
Si sueldo_mensual<1000 Entonces
empleados_menos_1000 <- empleados_menos_1000+1;
FinSi
 Si sueldo_mensual>=2500 Y sueldo_mensual<=3500 Entonces
empleados_entre_2500_y_3500 <- empleados_entre_2500_y_3500+1;
FinSi
Si sueldo_mensual>4000 Entonces
empleados_mas_4000 <- empleados_mas_4000+1;
FinSi
sueldos_de_todos <- sueldos_de_todos+sueldo_mensual;
Escribir "Nombre: ", nombre;
Escribir "Valor de sueldo mensual: ", sueldo_mensual;
Escribir "";
FinPara
Escribir "Valor de empleados menos 1000: ", empleados_menos_1000;
Escribir "Valor de empleados entre 2500 y 3500: ",
empleados_entre_2500_y_3500;
Escribir "Valor de empleados mas 4000: ", empleados_mas_4000;
Escribir "Valor de sueldos de todos: ", sueldos_de_todos;
FinProceso
14. Lima, cuantos entran con calcomanía de cada color. Conociendo el
último dígito de la placa de cada automóvil se puede determinar el color de
la calcomanía utilizando la siguiente relación:
Dígito Color
1 o 2 Amarilla.
3 o 4 Rosa
5 o 6 Roja
7 o 8 Verde
9 o 0 Azul
Proceso auto
Definir Color, nAutos, Digito, Contador, Amarillo, Rosa, Roja, Verde, Azul como
real;
Escribir "Escriba la cantidad de autos que entraron a la ciudad";
Leer nAutos;
Contador<-1;
Amarillo<-0;
Rosa<-0;
Roja<-0;
Verde<-0;
Azul<-0;
Mientras Contador<=nAutos Hacer
Escribir "Escriba el ultimo digito de la placa del auto ",Contador;
Leer Digito;
Si ((Digito=1)&&(Digito=2)) Entonces
Amarillo<-Digito+Amarillo;
Sino
Si ((Digito=3)&&(Digito=4)) Entonces
Rosa<-Rosa+Digito;
Sino
Si ((Digito=5)&(Digito=6)) Entonces
Roja<-Roja+Digito;
Sino
Si ((Digito=7)&(Digito=8)) Entonces
Verde<-Verde+Digito;
Sino
Si ((Digito=9)&(Digito=0)) Entonces
Azul<-Azul+Digito;
Sino
FinSi
FinSi
FinSi
FinSi
FinSi
Escribir "Amarillo ",Amarillo;
Escribir "Rojos ",Roja;
Escribir "Rosas ",Rosa;
Escribir "Verde ",Verde;
Escribir "Azules ",Azul;
Contador<-Contador+1;
FinMientras
FinProceso

15. En una tienda de descuento las personas que van a pagar el importe de
su compra llegan a la caja y sacan una bolita de color, que les dirá que
descuento tendrán sobre el total de su compra. Determinar la cantidad que
pagará cada cliente desde que la tienda abre hasta que cierra. Se sabe que si
la bolita es roja, el cliente obtendrá un 40% de descuento; si es amarilla un
25% y si es blanca no obtendrá descuento.
Proceso DescuentoPorBolitaRojaAmarillaBlanca
Repetir
Escribir Sin Saltar "Ingrese el valor de importe de la compra:";
Leer importe_de_la_compra;
descuento <- 0;
bolita <- AZAR(3);
Si bolita = 0 Entonces
descuento <- importe_de_la_compra*0.4;
Escribir "Bolita roja";
FinSi
Si bolita = 1 Entonces
descuento <- importe_de_la_compra*0.25;
Escribir "Bolita amarilla";
 FinSi
Si bolita = 2 Entonces
Escribir "Bolita blanca";
FinSi
cantidad_a_pagar <- importe_de_la_compra-descuento;
Escribir "Valor de bolita: ", bolita;
Escribir "Valor de cantidad a pagar: ", cantidad_a_pagar;
Escribir "Valor de descuento: ", descuento;
Escribir "";
Repetir
Escribir Sin Saltar "¿Desea repetir el proceso? (S/N):";
Leer tecla_repetir;
Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O
tecla_repetir='N'
Hasta Que tecla_repetir='n' O tecla_repetir='N'
FinProceso

16. Un censador recopila ciertos datos aplicando encuestas para el último

censo Nacional de Población y Vivienda. Desea obtener de todas las
personas que alcance a encuestar en un día, que porcentaje tiene estudios
de primaria, secundaria, carrera técnica, estudios profesionales y estudios
de postgrado.
Proceso CensoNacionalDePoblacionYVivienda
total_de_personas <- 0;
porcentaje_con_primaria <- 0;
porcentaje_con_secundaria <- 0;
porcentaje_con_carrera_tecnica <- 0;
porcentaje_con_profesional <- 0;
porcentaje_con_postgrado <- 0;
Repetir
Escribir "Seleccione el valor de tipo de estudio.";
Escribir " 1.- Primaria";
Escribir " 2.- Secundaria";
Escribir " 3.- Carrera técnica";
Escribir " 4.- Profesional";
Escribir " 5.- Postgrado";
Escribir Sin Saltar " :";
Repetir
Leer tipo_de_estudio;
Si tipo_de_estudio<1 O tipo_de_estudio>5 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingréselo nuevamente.: ";
FinSi
Hasta Que tipo_de_estudio>=1 Y tipo_de_estudio<=5;
Si tipo_de_estudio = 1 Entonces
porcentaje_con_primaria <- porcentaje_con_primaria+1;
FinSi
Si tipo_de_estudio = 2 Entonces
porcentaje_con_secundaria <- porcentaje_con_secundaria+1;
FinSi
Si tipo_de_estudio = 3 Entonces
porcentaje_con_carrera_tecnica <- porcentaje_con_carrera_tecnica+1;
FinSi
Si tipo_de_estudio = 4 Entonces
porcentaje_con_profesional <- porcentaje_con_profesional+1;
FinSi
Si tipo_de_estudio = 5 Entonces
porcentaje_con_postgrado <- porcentaje_con_postgrado+1;
FinSi
 total_de_personas <- total_de_personas+1;
Escribir "";
Repetir
Escribir Sin Saltar "¿Desea repetir el proceso? (S/N):";
Leer tecla_repetir;
Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O
tecla_repetir='N'
Hasta Que tecla_repetir='n' O tecla_repetir='N'
Si total_de_personas = 0 Entonces
porcentaje_con_primaria <- 0;
SiNo
porcentaje_con_primaria <-
100.0*porcentaje_con_primaria/total_de_personas;
FinSi
Si total_de_personas = 0 Entonces
porcentaje_con_secundaria <- 0;
SiNo
porcentaje_con_secundaria <-
100.0*porcentaje_con_secundaria/total_de_personas;
FinSi
Si total_de_personas = 0 Entonces
porcentaje_con_carrera_tecnica <- 0;
SiNo
porcentaje_con_carrera_tecnica <-
100.0*porcentaje_con_carrera_tecnica/total_de_personas;
FinSi
Si total_de_personas = 0 Entonces
porcentaje_con_profesional <- 0;
SiNo
 porcentaje_con_profesional <-
100.0*porcentaje_con_profesional/total_de_personas;
FinSi
Si total_de_personas = 0 Entonces
porcentaje_con_postgrado <- 0;
SiNo
porcentaje_con_postgrado <-
100.0*porcentaje_con_postgrado/total_de_personas;
FinSi
Escribir "Valor de total de personas: ", total_de_personas;
Escribir "Valor de porcentaje con primaria: ", porcentaje_con_primaria;
Escribir "Valor de porcentaje con secundaria: ", porcentaje_con_secundaria;
Escribir "Valor de porcentaje con carrera tecnica: ",
porcentaje_con_carrera_tecnica;
Escribir "Valor de porcentaje con profesional: ", porcentaje_con_profesional;
Escribir "Valor de porcentaje con postgrado: ", porcentaje_con_postgrado;
FinProceso
17. Suponga que tiene usted una tienda y desea registrar las ventas en su
computadora. Diseñe un algoritmo que lea por cada cliente, el monto total de
su compra. Al final del día que escriba la cantidad total de ventas y el
número de clientes atendidos.
Proceso RegistroDeVentas
clientes_atendidos <- 0;
total_de_ventas <- 0;
Repetir
Escribir Sin Saltar "Ingrese el valor de total de la compra:";
Leer total_de_la_compra;
total_de_ventas <- total_de_ventas+total_de_la_compra;
clientes_atendidos <- clientes_atendidos+1;
Escribir "";
 Repetir
Escribir Sin Saltar "¿Desea repetir el proceso? (S/N):";
Leer tecla_repetir;
Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O
tecla_repetir='N'
Hasta Que tecla_repetir='n' O tecla_repetir='N'
Escribir "Valor de clientes atendidos: ", clientes_atendidos;
Escribir "Valor de total de ventas: ", total_de_ventas;
FinProceso
18. Se desea procesar las operaciones bancarias de un cliente a quien se le
pide por única vez su nombre y saldo inicial. Luego en un proceso repetitivo
se presenta las siguientes opciones:
Depósito, Retiro, Fin. Al ingresar la opción elegida si esta fue ‘D’ se pide si
es en efectivo (1) o con cheque (2), se ingresa la cantidad, y si fuese cheque
se descuenta el 1% por comisión y se actualiza su saldo mostrándolo en
pantalla. Si la opción elegida fue ‘R’ se ingresa la cantidad verificando que
ésta sea menor al saldo actualizándolo, de lo contrario dar un mensaje de
sobregiro. Si la opción elegida fue ‘F’ mostrar los siguientes
resultados:
a.- Nombre, Saldo inicial.
b.- Saldo final.
c.- Número de Depósitos en EFECTIVO y con CHEQUE.
d.- Monto promedio de retiros.
e.- Monto mínimo depositado y máximo retirado.
Def operacion(nombre, saldoIn)
  if deposit
    if effective
      saldo = saldoIn + depo
    end
    elseif cheque
      saldo = saldoIn + depo * 0.99
    end
  end
  elseif  retiro
    if saldoIn < retire
      print "not enough money!"
    end
  end
  else
    print "error transaction!"
  end
end

print nombre, saldoIn

print saldo

20. Calcular el MCD y el MCM de dos números enteros positivos.

Proceso mcdymcm
mcm<-1
Escribir "¿CUANTOS NUMEROS DESEA INGRESAR?:"
Leer n
h<-n
Dimension num[n]
Dimension array[h]
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "Ingrese el valor ",i
Leer num[i]
val<-num[i]
array[i]<-val
FinPara
may<-num[1]
//hallamos el mcm
Para k<-2 Hasta n Con Paso 1 Hacer
Si may<num[k] Entonces
may<-num[k]
FinSi
FinPara
cont<-2
Dimension cd[n]
Mientras cont<=may Hacer
Para i<-1 Hasta n Con Paso 1 Hacer
Mientras num[i]%cont=0 Hacer
num[i]<-num[i]/cont
cd[i]<-cd[i]+1
FinMientras
FinPara
mayd<-cd[1]
Para k<-2 Hasta n Con Paso 1 Hacer
Si mayd<cd[k] Entonces
mayd<-cd[k]
FinSi
FinPara

mcm<-mcm*cont^mayd
cont<-cont+1
Para i<-1 Hasta n Con Paso 1 Hacer
cd[i]<-0
FinPara
FinMientras
Escribir "El mcm de los numeros ingresados es ",mcm
Para k<-1 Hasta n Con Paso 1 Hacer
Mientras array[k]>0 Hacer
res= mcd Mod array[k]
mcd=array[k]
array[k]=res
FinMientras
FinPara
Escribir "El mcd de los numeros ingresados es: " mcd ;
FinProceso

22. La compañía de luz “Del Centro” desea imprimir los recibos de un grupo
de empleados. Desea obtener también el total de cobros del periodo. Por
cada cliente se ingresa su nombre, dirección, registro inicial y registro final.
El cobro se efectúa en base a la siguiente tabla:
 140 KVH o Menos S/. 3.20
 Los siguientes 170 KVH S/. 0.15 por KVH
 Exceso sobre 310 KVH S/. 0.097 por KVH
 Por cada cliente se debe imprimir un recibo indicando sus datos y montos.
Proceso CompaniaDeLuzDelCentro1
total_de_cobros <- 0;
Repetir
Escribir Sin Saltar "Ingrese el nombre:";
Leer nombre;
Escribir Sin Saltar "Ingrese el direccion:";
Leer direccion;
Escribir Sin Saltar "Ingrese el valor de registro final en KVH:";
 Leer registro_final_en_KVH;
Escribir Sin Saltar "Ingrese el valor de registro inicial en KVH:";
Leer registro_inicial_en_KVH;
consumo_en_KVH <- registro_final_en_KVH-registro_inicial_en_KVH;
cobro <- 0;
Si consumo_en_KVH<=140 Entonces
cobro <- 3.2;
FinSi
Si consumo_en_KVH>140 Entonces
cobro <- consumo_en_KVH*0.15;
FinSi
Si consumo_en_KVH>310 Entonces
cobro <- cobro+(consumo_en_KVH-310)*0.097;
FinSi
total_de_cobros <- total_de_cobros+cobro;
Escribir "Nombre: ", nombre;
Escribir "Direccion: ", direccion;
Escribir "Valor de cobro: ", cobro;
Escribir "Valor de consumo en KVH: ", consumo_en_KVH;
Escribir "";
Repetir
Escribir Sin Saltar "¿Desea repetir el proceso? (S/N):";
Leer tecla_repetir;
Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O
tecla_repetir='N'
Hasta Que tecla_repetir='n' O tecla_repetir='N'
Escribir "Valor de total de cobros: ", total_de_cobros;
FinProceso
23. En una universidad con un número determinado de alumnos se desea
obtener el promedio y el porcentaje de la población femenina, el promedio y
porcentaje de la población masculina y el promedio general. Por cada
alumno se ingresa MATRICULA, SEXO, SEMESTRE y PROMEDIO. Calcular e
imprimir lo solicitado.
Proceso PromedioYElPorcentajeDePoblacion
cantidad_femeninos <- 0;
cantidad_masculinos <- 0;
porcentaje_femeninos <- 0;
porcentaje_masculinos <- 0;
promedio_femeninos <- 0;
promedio_masculinos <- 0;
Escribir Sin Saltar "Ingrese el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
Escribir Sin Saltar "Ingrese el matricula:";
Leer matricula;
Escribir Sin Saltar "Ingrese el semestre:";
Leer semestre;
Escribir Sin Saltar "Ingrese el valor de promedio:";
Leer promedio;
Escribir "Seleccione el valor de sexo.";
Escribir " 1.- Femenino";
Escribir " 2.- Masculino";
Escribir Sin Saltar " :";
Repetir
Leer sexo;
Si sexo<1 O sexo>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingréselo nuevamente.: ";
 FinSi
Hasta Que sexo>=1 Y sexo<=2;
Si sexo = 1 Entonces
cantidad_femeninos <- cantidad_femeninos+1;
promedio_femeninos <- promedio_femeninos+promedio;
SiNo
cantidad_masculinos <- cantidad_masculinos+1;
promedio_masculinos <- promedio_masculinos+promedio;
FinSi
Escribir "Matricula: ", matricula;
Escribir "Semestre: ", semestre;
Escribir "";
FinPara
porcentaje_femeninos <-
100.0*cantidad_femeninos/(cantidad_femeninos+cantidad_masculinos);
porcentaje_masculinos <- 100.0-porcentaje_femeninos;
Si cantidad_femeninos = 0 Entonces
promedio_femeninos <- 0;
SiNo
promedio_femeninos <- promedio_femeninos/cantidad_femeninos;
FinSi
Si cantidad_masculinos = 0 Entonces
promedio_masculinos <- 0;
SiNo
promedio_masculinos <- promedio_masculinos/cantidad_masculinos;
FinSi
Escribir "Valor de cantidad femeninos: ", cantidad_femeninos;
Escribir "Valor de cantidad masculinos: ", cantidad_masculinos;
Escribir "Valor de porcentaje femeninos: ", porcentaje_femeninos;
 Escribir "Valor de porcentaje masculinos: ", porcentaje_masculinos;
Escribir "Valor de promedio femeninos: ", promedio_femeninos;
Escribir "Valor de promedio masculinos: ", promedio_masculinos;
FinProceso
25. Encontrar todos los números primos entre dos números enteros
ingresados por teclado.
Proceso Primos
Escribir "Ingrese la cantidad de numeros primos a mostrar:"
Leer cant_a_mostrar
Escribir "1: 2"
cant_mostrados <- 1
n<-3
Mientras cant_mostrados<cant_a_mostrar Hacer
es_primo <- Verdadero
Para i<-3 hasta rc(n) con paso 2 Hacer
Si n MOD i = 0 entonces
es_primo <- Falso /
FinSi
FinPara
Si es_primo Entonces
cant_mostrados <- cant_mostrados + 1
Escribir cant_mostrados, ": ",n
FinSi
n <- n + 2
FinMientras
FinProceso