Cantidad de pesos en monedas en lenguaje Pascal

Lenguaje

Pascal
Descripción

Algoritmo que ingresando un valor el pesos, muestre la cantidad de monedas necesarias para dar ese mismo valor, pero con la menor cantidad posible de monedas.

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

program CantidadDePesosEnMonedas;

uses crt;

var cantidad_en_pesos, monedas_de_1, monedas_de_10, monedas_de_2, monedas_de_5 : integer;

begin

    write ('Ingresa el valor de cantidad en pesos: ');

    readln (cantidad_en_pesos);

    monedas_de_1 := cantidad_en_pesos;

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

    monedas_de_1 := monedas_de_1 mod 10;

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

    monedas_de_1 := monedas_de_1 mod 5;

    monedas_de_2 := (monedas_de_1-monedas_de_1 mod 2) div 2;

    monedas_de_1 := monedas_de_1 mod 2;

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

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

    writeln ('Valor de monedas de 2: ', monedas_de_2);

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

    writeln;

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

    readkey;

end.