Cajera de banco en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Indique a una cajera de banco el número y denominación de los billetes que necesita darle a un cliente al hacer un retiro. La cajera deberá darle al cliente billetes de la más alta denominación posible, esto es, el menor número de billetes. Suponga que los retiros deben de ser en cantidades múltiples de 50 pesos y que hay billetes de $50, $100, $500 y $1000 pesos.

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

Proceso CajeraDeBanco

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

    Leer retiro;

    cambio <- retiro;

    billetes_de_1000 <- (cambio-cambio MOD 1000)/1000;

    cambio <- cambio MOD 1000;

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

    cambio <- cambio MOD 500;

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

    cambio <- cambio MOD 100;

    billetes_de_50 <- (cambio-cambio MOD 50)/50;

    cambio <- cambio MOD 50;

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

    Escribir "Valor de billetes de 1000: ", billetes_de_1000;

    Escribir "Valor de billetes de 50: ", billetes_de_50;

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

    Escribir "Valor de cambio: ", cambio;

FinProceso