-
Lenguaje
Pascal
-
Descripción
Una compañía de seguros cobra por una póliza $500 pesos por cada integrante de la familia y adicionalmente cobra el 5% del costo de dicha póliza para seguro de vida. Determine el costo de la póliza, el costo del seguro de vida y el monto total a pagar.
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 PolizaDeSeguroFamiliar;
uses crt;
var monto_total, numero_de_integrantes, poliza, seguro_de_vida : real;
begin
write ('Ingresa el valor de numero de integrantes: ');
readln (numero_de_integrantes);
poliza := 500.0*numero_de_integrantes;
seguro_de_vida := poliza*0.05;
monto_total := poliza+seguro_de_vida;
writeln ('Valor de monto total: ', monto_total:0:6);
writeln ('Valor de poliza: ', poliza:0:6);
writeln ('Valor de seguro de vida: ', seguro_de_vida:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var monto_total, numero_de_integrantes, poliza, seguro_de_vida : real;
begin
write ('Ingresa el valor de numero de integrantes: ');
readln (numero_de_integrantes);
poliza := 500.0*numero_de_integrantes;
seguro_de_vida := poliza*0.05;
monto_total := poliza+seguro_de_vida;
writeln ('Valor de monto total: ', monto_total:0:6);
writeln ('Valor de poliza: ', poliza:0:6);
writeln ('Valor de seguro de vida: ', seguro_de_vida:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.