-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Capturar m número indeterminado de números y sumar los pares al final mostrar la suma total y la cantidad de números recibidos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Proceso SumaDeParesYTotal
numeros_recibidos <- 0;
sumar_de_pares <- 0;
suma_total <- 0;
Repetir
Escribir Sin Saltar "Ingresa el valor de un numero:";
Leer un_numero;
Si un_numero MOD 2 = 0 Entonces
sumar_de_pares <- sumar_de_pares+un_numero;
FinSi
numeros_recibidos <- numeros_recibidos+1;
suma_total <- suma_total+un_numero;
Escribir "";
Repetir
Escribir Sin Saltar "¿Deseas 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 numeros recibidos: ", numeros_recibidos;
Escribir "Valor de sumar de pares: ", sumar_de_pares;
Escribir "Valor de suma total: ", suma_total;
FinProceso
numeros_recibidos <- 0;
sumar_de_pares <- 0;
suma_total <- 0;
Repetir
Escribir Sin Saltar "Ingresa el valor de un numero:";
Leer un_numero;
Si un_numero MOD 2 = 0 Entonces
sumar_de_pares <- sumar_de_pares+un_numero;
FinSi
numeros_recibidos <- numeros_recibidos+1;
suma_total <- suma_total+un_numero;
Escribir "";
Repetir
Escribir Sin Saltar "¿Deseas 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 numeros recibidos: ", numeros_recibidos;
Escribir "Valor de sumar de pares: ", sumar_de_pares;
Escribir "Valor de suma total: ", suma_total;
FinProceso