Cajera de banco en lenguaje Pascal

Lenguaje

Pascal
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
19
20
21
22
23
24
25
26

program CajeraDeBanco;

uses crt;

var billetes_de_100, billetes_de_1000, billetes_de_50, billetes_de_500, cambio : integer;

var retiro : integer;

begin

    write ('Ingresa el valor de retiro: ');

    readln (retiro);

    cambio := retiro;

    billetes_de_1000 := (cambio-cambio mod 1000) div 1000;

    cambio := cambio mod 1000;

    billetes_de_500 := (cambio-cambio mod 500) div 500;

    cambio := cambio mod 500;

    billetes_de_100 := (cambio-cambio mod 100) div 100;

    cambio := cambio mod 100;

    billetes_de_50 := (cambio-cambio mod 50) div 50;

    cambio := cambio mod 50;

    writeln ('Valor de billetes de 100: ', billetes_de_100);

    writeln ('Valor de billetes de 1000: ', billetes_de_1000);

    writeln ('Valor de billetes de 50: ', billetes_de_50);

    writeln ('Valor de billetes de 500: ', billetes_de_500);

    writeln ('Valor de cambio: ', cambio);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.