• Lenguaje

    Pascal

  • Descripción

    Un banco a sus ahorristas les paga un interés del 1.5% mensual sobre el monto ahorrado. Teniendo como dato de entrada el saldo inicial de ahorrista determinar el saldo final a cabo de 3 años.

1
2
3
4
5
6
7
8
9
10
11
12
13
program AhorroCon15DeInteres;
uses crt, math;

var saldo_final, saldo_inicial : real;
begin
    write ('Ingresa el valor de saldo inicial: ');
    readln (saldo_inicial);
    saldo_final := saldo_inicial*power(1.015,12*3);
    writeln ('Valor de saldo final: ', saldo_final:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.