• Lenguaje

    Pascal

  • Descripción

    Recibir una cantidad de monedas en denominaciones de centavo, cinco, diez, veinticinco y de dólar. Luego calcule y muestre en pantalla el valor total en dólares.

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

var dolares, monedas_de_centavo, monedas_de_cinco, monedas_de_diez, monedas_de_dólar : real;
var monedas_de_veinticinco : real;
begin
    write ('Ingresa el valor de monedas de centavo: ');
    readln (monedas_de_centavo);
    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 d'#162'lar: ');
    readln (monedas_de_dólar);
    write ('Ingresa el valor de monedas de veinticinco: ');
    readln (monedas_de_veinticinco);
    dolares := monedas_de_centavo*0.01+monedas_de_cinco*0.05+monedas_de_diez*0.1+monedas_de_veinticinco*0.25+monedas_de_dólar;
    writeln ('Valor de dolares: ', dolares:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.