Proceso ABC

Proceso abc
Escribir "ingrese el primer numero"
Leer a
Escribir "ingrese el segundo numero"
Leer b
Mientras a = b Hacer
Escribir "error , ingrese segundo numero nuevamente"
Leer b
FinMientras
Escribir
Leer c
Mientras c = a o c = b Hacer
Escribir "error , ingrese segundo numero nuevamente "
Leer c
FinMientras
si a > b Entonces
si a > c
Escribir " a es mayor "
Sino
Escribir " c es mayor "
FinSi
Sino
si b > c Entonces
Escribir " b es mayor "
Sino
Escribir " c es mayor "
FinSi
FinSi




FinProceso

Número al cubo

Proceso numeroalcubo
Escribir "ingrese un numero entero entre 1 y 10"
Leer n
Mientras n < 1 o n > 10 o n <> trunc(n) Hacer
Escribir "su numero no es valido"
leer n
FinMientras
elv<- n^3
Escribir "su valor elevado al cubo es: ",elv
FinProceso

Números primos (básico)

Proceso numerosprimos
Escribir "ingrese un numero"
Leer n
msg <- " su numero es primo"


Para i <- 2 Hasta n -1 Hacer
si n mod i = 0 Entonces
msg <- " su numero no es primo "
FinSi
FinPara
Escribir n,msg


FinProceso

Muestra el numero por dígitos

Proceso muestradigito
Escribir "ingrese un numero"
Leer n
Repetir
d <- n mod 10
n <- trunc(n/10)
Escribir d
Hasta Que n = 0

FinProceso