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