Monedas de 50, 20, 10 y 5 en lenguaje Pascal

Lenguaje

Pascal
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
16
17
18
19
20
21
22

program MonedasDe502010Y5;

uses crt;

var monedas_de_10, monedas_de_20, monedas_de_5, monedas_de_50, monto : integer;

begin

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

    readln (monto);

    monedas_de_5 := monto mod 50;

    monedas_de_50 := (monto-monedas_de_5) div 50;

    monedas_de_20 := (monedas_de_5-monedas_de_5 mod 50) div 50;

    monedas_de_5 := monedas_de_5 mod 50;

    monedas_de_10 := (monedas_de_5-monedas_de_5 mod 10) div 10;

    monedas_de_5 := monedas_de_5 mod 10;

    monedas_de_5 := (monedas_de_5-monedas_de_5 mod 5) div 5;

    writeln ('Valor de monedas de 10: ', monedas_de_10);

    writeln ('Valor de monedas de 20: ', monedas_de_20);

    writeln ('Valor de monedas de 5: ', monedas_de_5);

    writeln ('Valor de monedas de 50: ', monedas_de_50);

    writeln;

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

    readkey;

end.