va masomenos así:
Algoritmo PromedioDeTresNotas:
Ciclo "FOR"
//Variables
Definir c, n, s Como Entero
Definir p Como Real
//Título
Escribir ' ******************** '
Escribir ' Promedio De Exámenes '
Escribir ' Finales '
Escribir ' '
//Algoritmo
Para c = 1 Hasta 3
Escribir 'Nota #',c
Leer n
S = s + n
FinPara
p = s / 3
Escribir 'Promedio: ',p
FinAlgoritmo
Algoritmo Orden_De_Los_Números
Ciclo "WHILE"
Definir nmenor, nmayor, n, d Como Entero
nmenor = 0
nmayor = 0
Escribir ' Orden De Los Números '
Escribir 'Dígite el número: '
Mientras n <> 0 Hacer
d = n Mod 10
Si d <= 7 Entonces
nmenor = nmenor + 1
SiNo
nmayor = nmayor + 1
FinSi
n = Trunc(n/10)
FinMientras
Escribir 'Menores o Iguales a 7: ',nmenor
Escribir 'Mayores a 7: ',nmayor
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
va masomenos así:
Algoritmo PromedioDeTresNotas:
Ciclo "FOR"
//Variables
Definir c, n, s Como Entero
Definir p Como Real
//Título
Escribir ' ******************** '
Escribir ' Promedio De Exámenes '
Escribir ' Finales '
Escribir ' ******************** '
Escribir ' '
//Algoritmo
Para c = 1 Hasta 3
Escribir 'Nota #',c
Leer n
S = s + n
FinPara
p = s / 3
Escribir 'Promedio: ',p
FinAlgoritmo
Algoritmo Orden_De_Los_Números
Ciclo "WHILE"
//Variables
Definir nmenor, nmayor, n, d Como Entero
nmenor = 0
nmayor = 0
//Título
Escribir ' ******************** '
Escribir ' Orden De Los Números '
Escribir ' ******************** '
Escribir ' '
//Algoritmo
Escribir 'Dígite el número: '
Leer n
Mientras n <> 0 Hacer
d = n Mod 10
Si d <= 7 Entonces
nmenor = nmenor + 1
SiNo
nmayor = nmayor + 1
FinSi
n = Trunc(n/10)
FinMientras
Escribir 'Menores o Iguales a 7: ',nmenor
Escribir 'Mayores a 7: ',nmayor
FinAlgoritmo