-
Lenguaje
Pascal
-
Descripción
El señor Gastón Plata desea repartir un cierto capital entre sus hijos y determina lo siguiente: Para el hijo mayor corresponde el 40%, para el hijo del medio corresponde el 70% del resto y para el hijo menor lo restante. ¿Cuánto dinero le corresponde a cada hijo?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program CapitalDelSenorGastonPlata;
uses crt;
var capital, hijo_mayor, hijo_medio, hijo_menor : real;
begin
write ('Ingresa el valor de capital: ');
readln (capital);
hijo_mayor := capital*0.4;
hijo_medio := (capital-hijo_mayor)*0.7;
hijo_menor := capital-hijo_mayor-hijo_medio;
writeln ('Valor de hijo mayor: ', hijo_mayor:0:6);
writeln ('Valor de hijo medio: ', hijo_medio:0:6);
writeln ('Valor de hijo menor: ', hijo_menor:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var capital, hijo_mayor, hijo_medio, hijo_menor : real;
begin
write ('Ingresa el valor de capital: ');
readln (capital);
hijo_mayor := capital*0.4;
hijo_medio := (capital-hijo_mayor)*0.7;
hijo_menor := capital-hijo_mayor-hijo_medio;
writeln ('Valor de hijo mayor: ', hijo_mayor:0:6);
writeln ('Valor de hijo medio: ', hijo_medio:0:6);
writeln ('Valor de hijo menor: ', hijo_menor:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.