-
Lenguaje
Pascal
-
Descripción
Un padre repartirá una cantidad de dinero entre sus cinco hijos. Cada uno recibirá una cantidad equivalente a:
- Tamara: 85% del monto recibido por Josué
- Josué: 27% de la cantidad a repartir
- Caleb: 23% del monto total recibido entre Josué y Daniel
- Daniel: 25% de la cantidad a repartir
- David: lo que queda del dinero a repartir
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 DineroParaTamaraJosueCalebDanielYDavid;
uses crt;
var cantidad_a_repartir, cantidad_para_Caleb, cantidad_para_Daniel, cantidad_para_David, cantidad_para_Josue : real;
var cantidad_para_Tamara : real;
begin
write ('Ingresa el valor de cantidad a repartir: ');
readln (cantidad_a_repartir);
cantidad_para_Daniel := cantidad_a_repartir*0.25;
cantidad_para_Josue := cantidad_a_repartir*0.27;
cantidad_para_Tamara := cantidad_para_Josue*0.85;
cantidad_para_Caleb := (cantidad_para_Daniel+cantidad_para_Josue)*0.85;
cantidad_para_David := cantidad_a_repartir-cantidad_para_Daniel-cantidad_para_Josue-cantidad_para_Tamara-cantidad_para_Caleb;
writeln ('Valor de cantidad para Caleb: ', cantidad_para_Caleb:0:6);
writeln ('Valor de cantidad para Daniel: ', cantidad_para_Daniel:0:6);
writeln ('Valor de cantidad para David: ', cantidad_para_David:0:6);
writeln ('Valor de cantidad para Josue: ', cantidad_para_Josue:0:6);
writeln ('Valor de cantidad para Tamara: ', cantidad_para_Tamara:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_a_repartir, cantidad_para_Caleb, cantidad_para_Daniel, cantidad_para_David, cantidad_para_Josue : real;
var cantidad_para_Tamara : real;
begin
write ('Ingresa el valor de cantidad a repartir: ');
readln (cantidad_a_repartir);
cantidad_para_Daniel := cantidad_a_repartir*0.25;
cantidad_para_Josue := cantidad_a_repartir*0.27;
cantidad_para_Tamara := cantidad_para_Josue*0.85;
cantidad_para_Caleb := (cantidad_para_Daniel+cantidad_para_Josue)*0.85;
cantidad_para_David := cantidad_a_repartir-cantidad_para_Daniel-cantidad_para_Josue-cantidad_para_Tamara-cantidad_para_Caleb;
writeln ('Valor de cantidad para Caleb: ', cantidad_para_Caleb:0:6);
writeln ('Valor de cantidad para Daniel: ', cantidad_para_Daniel:0:6);
writeln ('Valor de cantidad para David: ', cantidad_para_David:0:6);
writeln ('Valor de cantidad para Josue: ', cantidad_para_Josue:0:6);
writeln ('Valor de cantidad para Tamara: ', cantidad_para_Tamara:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.