• Lenguaje

    Pascal

  • Descripción

    Determinar qué cantidad de dinero hay en un monedero, considerando que se tienen monedas de diez, cinco y un peso, y billetes de diez, veinte y cincuenta 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
program CantidadDeMonedasDe1051YBilletesDe102050;
uses crt;

var billetes_de_cincuenta, billetes_de_diez, billetes_de_veinte, cantidad_de_dinero, monedas_de_cinco : integer;
var monedas_de_diez, monedas_de_un_peso : integer;
begin
    write ('Ingresa el valor de billetes de cincuenta: ');
    readln (billetes_de_cincuenta);
    write ('Ingresa el valor de billetes de diez: ');
    readln (billetes_de_diez);
    write ('Ingresa el valor de billetes de veinte: ');
    readln (billetes_de_veinte);
    write ('Ingresa el valor de monedas de cinco: ');
    readln (monedas_de_cinco);
    write ('Ingresa el valor de monedas de diez: ');
    readln (monedas_de_diez);
    write ('Ingresa el valor de monedas de un peso: ');
    readln (monedas_de_un_peso);
    cantidad_de_dinero := monedas_de_diez*10+monedas_de_cinco*5+monedas_de_un_peso+billetes_de_diez*10+billetes_de_veinte*20+billetes_de_cincuenta*50;
    writeln ('Valor de cantidad de dinero: ', cantidad_de_dinero);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.