• Lenguaje

    Pascal

  • Descripción

    Un almacén de tenis realiza ventas a crédito y el valor de las cuotas las difiere de las siguiente manera:
    - La primera cuota será el 30% el valor del crédito.
    - La segunda cuota será del 25% el valor del crédito.
    - La tercera cuota será el valor restante del crédito.
    El dueño necesita saber el valor a pagar por cada cuota cuando un cliente realiza un crédito.

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

var credito, primera_cuota, segunda_cuota, tercera_cuota : real;
begin
    write ('Ingresa el valor de credito: ');
    readln (credito);
    primera_cuota := credito*0.3;
    segunda_cuota := credito*0.25;
    tercera_cuota := credito-primera_cuota-segunda_cuota;
    writeln ('Valor de primera cuota: ', primera_cuota:0:6);
    writeln ('Valor de segunda cuota: ', segunda_cuota:0:6);
    writeln ('Valor de tercera cuota: ', tercera_cuota:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.