Cantidad de billetes en lenguaje Pascal

Lenguaje

Pascal
Descripción

Determinar la cantidad de billetes de cada denominación (20000, 10000, 5000, 2000 y 1000) que se debe entregar como vueltos (cambio, vuelta) a un cliente que paga el valor de la compra. Nota: Se debe entregar mayor numero de billetes de cada denominación por ejemplo: Valor de Compra : 53000, el Cliente entrega 100000, se le devuelven 47000 así: 2 billetes de 20000, 3 billetes de 2000 y un billete de 1000.

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
27
28
29
30
31
32
33

program CantidadDeBilletes;

uses crt;

var billetes_de_1000, billetes_de_10000, billetes_de_2000, billetes_de_20000, billetes_de_5000 : integer;

var cambio, cantidad_entregada, compra, monedas_de_1 : integer;

begin

    write ('Ingresa el valor de cantidad entregada: ');

    readln (cantidad_entregada);

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

    readln (compra);

    cambio := cantidad_entregada-compra;

    monedas_de_1 := cambio;

    billetes_de_20000 := (monedas_de_1-monedas_de_1 mod 20000) div 20000;

    monedas_de_1 := monedas_de_1 mod 20000;

    billetes_de_10000 := (monedas_de_1-monedas_de_1 mod 10000) div 10000;

    monedas_de_1 := monedas_de_1 mod 10000;

    billetes_de_5000 := (monedas_de_1-monedas_de_1 mod 5000) div 5000;

    monedas_de_1 := monedas_de_1 mod 5000;

    billetes_de_2000 := (monedas_de_1-monedas_de_1 mod 2000) div 2000;

    monedas_de_1 := monedas_de_1 mod 2000;

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

    monedas_de_1 := monedas_de_1 mod 1000;

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

    writeln ('Valor de billetes de 10000: ', billetes_de_10000);

    writeln ('Valor de billetes de 2000: ', billetes_de_2000);

    writeln ('Valor de billetes de 20000: ', billetes_de_20000);

    writeln ('Valor de billetes de 5000: ', billetes_de_5000);

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

    writeln ('Valor de monedas de 1: ', monedas_de_1);

    writeln;

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

    readkey;

end.