-
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
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.
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.