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