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