• Lenguaje

    Pascal

  • Descripción

    Un millonario excéntrico tenía tres hijos: Carlos, José y Marta. Al morir dejó el siguiente legado: A José le dejó 4/3 de lo que le dejó a Carlos. A Carlos le dejó 1/3 de su fortuna. A Martha le dejo la mitad de lo que le dejó a José. Preparar un algoritmo para darle la suma a repartir e imprima cuanto le tocó a cada uno.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program LegadoDeCarlosJoseYMarta;
uses crt;

var fortuna, legado_de_Carlos, legado_de_Jose, legado_de_Martha : real;
begin
    write ('Ingresa el valor de fortuna: ');
    readln (fortuna);
    legado_de_Carlos := fortuna/3.0;
    legado_de_Jose := legado_de_Carlos*4.0/3.0;
    legado_de_Martha := legado_de_Jose/2.0;
    writeln ('Valor de legado de Carlos: ', legado_de_Carlos:0:6);
    writeln ('Valor de legado de Jose: ', legado_de_Jose:0:6);
    writeln ('Valor de legado de Martha: ', legado_de_Martha:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.