• Lenguaje

    Pascal

  • Descripción

    Una tienda vende un producto cuyo costo unitario es $21.60. Por campaña la tienda ofrece un descuento del 13% del importe de la compra. Además, la tienda ofrece un obsequio de 3 lapiceros por cada 5 productos adquiridos. Elabore un programa que determine le importe de la compra, el importe del descuento, el importe a pagar y la cantidad de lapiceros de obsequio.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program LapicerosDeObsequio;
uses crt, math;

var importe_a_pagar, importe_de_la_compra, importe_del_descuento, lapiceros_de_obsequio, productos_adquiridos : real;
begin
    write ('Ingresa el valor de productos adquiridos: ');
    readln (productos_adquiridos);
    importe_de_la_compra := 21.6*productos_adquiridos;
    importe_del_descuento := importe_de_la_compra*0.13;
    importe_a_pagar := importe_de_la_compra-importe_del_descuento;
    lapiceros_de_obsequio := floor(productos_adquiridos/5)*3;
    writeln ('Valor de importe a pagar: ', importe_a_pagar:0:6);
    writeln ('Valor de importe de la compra: ', importe_de_la_compra:0:6);
    writeln ('Valor de importe del descuento: ', importe_del_descuento:0:6);
    writeln ('Valor de lapiceros de obsequio: ', lapiceros_de_obsequio:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.