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