• Lenguaje

    Pascal

  • Descripción

    La municipalidad de Pueblo Libre piensa invertir cierto monto de dinero en la reparación de las pistas en las avenidas principales.
    Cada avenida recibirá un monto equivalente a:
    - Av. La Mar: 35% del monto recibido por Av. Bolivar
    - Av. 28 de Julio: 25% del monto recibido
    - Av. Bolivar: 10% de lo recibido por la Av. 28 deJulio y Av. Clemen
    - Av. Clement: 15% del monto recibido
    - Av. Sucre: lo que queda del resto.
    ¿Cuánto dinero le corresponde a cada avenida?

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

var av_28_de_julio, av_bolivar, av_clement, av_la_mar, av_sucre : real;
var monto_recibido : real;
begin
    write ('Ingresa el valor de monto recibido: ');
    readln (monto_recibido);
    av_28_de_julio := monto_recibido*0.25;
    av_clement := monto_recibido*0.15;
    av_bolivar := av_28_de_julio*0.1+av_clement*0.1;
    av_la_mar := av_bolivar*0.35;
    av_sucre := monto_recibido-av_28_de_julio-av_clement-av_bolivar-av_la_mar;
    writeln ('Valor de av 28 de julio: ', av_28_de_julio:0:6);
    writeln ('Valor de av bolivar: ', av_bolivar:0:6);
    writeln ('Valor de av clement: ', av_clement:0:6);
    writeln ('Valor de av la mar: ', av_la_mar:0:6);
    writeln ('Valor de av sucre: ', av_sucre:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.