Monedas de 50, 20, 10 y 5 en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Dado un monto calcule el mínimo número de monedas para cubrir el monto. Suponga que sólo tiene monedas de 50, 20, 10 y 5 pesos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Proceso MonedasDe502010Y5

    Escribir Sin Saltar "Ingresa el valor de monto:";

    Leer monto;

    monedas_de_5 <- monto MOD 50;

    monedas_de_50 <- (monto-monedas_de_5)/50;

    monedas_de_20 <- (monedas_de_5-monedas_de_5 MOD 50)/50;

    monedas_de_5 <- monedas_de_5 MOD 50;

    monedas_de_10 <- (monedas_de_5-monedas_de_5 MOD 10)/10;

    monedas_de_5 <- monedas_de_5 MOD 10;

    monedas_de_5 <- (monedas_de_5-monedas_de_5 MOD 5)/5;

    Escribir "Valor de monedas de 10: ", monedas_de_10;

    Escribir "Valor de monedas de 20: ", monedas_de_20;

    Escribir "Valor de monedas de 5: ", monedas_de_5;

    Escribir "Valor de monedas de 50: ", monedas_de_50;

FinProceso