1.
_Proceso LanzarDado
Definir val,a ,b Como Entero
a<-0
b<-0
Repetir
Val<.azar(6)+1
a<-a+1
b<-b+val
Hasta que val=1
Escribir”Cantidad de veces lanzados: “,a
Escribir”Suma de los resultados:” ,a
FinProceso
2._Proceso promedio
Definir contador, suma como entero
Contador <-0
Repetir
Contador<-contador+1
Suma<-suma+contador
Escribir”numero natural:” ,contador
Hasta que contador =10
Escribir”el resultad:” ,suma/10
FinProceso
3._Proceso Nota
Definir notas como Real
Escribir”ingrese nota”
Leer notas
Repetir
Si notas>20 entondes
Escribir “nota fuera de rango”
Escribir “ingrese nota”
Leer notas
Fin Si
Hasta que 0<notas y notas<20
Escribir “nota válida”
FrinProceso