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