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