Billetes de 500, 200 y 100 en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Leer una cantidad entera y escriba cuantos billetes de 500, 200 y 100 debe dar.

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

Proceso BilletesDe500200Y100

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

    Leer cantidad;

    residuo <- cantidad;

    billetes_de_500 <- (residuo-residuo MOD 500)/500;

    residuo <- residuo MOD 500;

    billetes_de_200 <- (residuo-residuo MOD 200)/200;

    residuo <- residuo MOD 200;

    billetes_de_100 <- (residuo-residuo MOD 100)/100;

    residuo <- residuo MOD 100;

    Escribir "Valor de billetes de 100: ", billetes_de_100;

    Escribir "Valor de billetes de 200: ", billetes_de_200;

    Escribir "Valor de billetes de 500: ", billetes_de_500;

    Escribir "Valor de residuo: ", residuo;

FinProceso