• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Lea 10 números y determine cuales y cuantos de ellos son múltiplos de 5.

1
2
3
4
5
6
7
8
9
10
11
12
13
Proceso MultiplosDe5
    multiplos <- 0;
    Para i<-1 Hasta 10 Con Paso 1 Hacer
        Escribir "PROCESO ", i;
        Escribir Sin Saltar "Ingresa el valor de un numero:";
        Leer un_numero;
        Si un_numero MOD 5 = 0 Entonces
            multiplos <- multiplos+1;
        FinSi
        Escribir "";
    FinPara
    Escribir "Valor de multiplos: ", multiplos;
FinProceso