• Lenguaje

    Pascal

  • Descripción

    Determinar cuánto dinero ahorra una persona en un año si considera que cada semana ahorra 15% de su sueldo (considere cuatro semanas por mes y que no cambia el sueldo).

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

var ahorros, meses_por_ano, semanas_por_mes, sueldo : real;
begin
    write ('Ingresa el valor de sueldo: ');
    readln (sueldo);
    semanas_por_mes := 4;
    meses_por_ano := 12;
    ahorros := sueldo*0.15+semanas_por_mes*meses_por_ano;
    writeln ('Valor de ahorros: ', ahorros:0:6);
    writeln ('Valor de meses por ano: ', meses_por_ano:0:6);
    writeln ('Valor de semanas por mes: ', semanas_por_mes:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.