• Lenguaje

    Pascal

  • Descripción

    Permita obtener el costo total de un producto sabiendo que recibe un descuento del 20% y tiene que pagar un IVA del 15% e ICE 8%.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program IvaEIce;
uses crt;

var ICE, IVA, costo_del_producto, descuento, subtotal : real;
var total : real;
begin
    write ('Ingresa el valor de costo del producto: ');
    readln (costo_del_producto);
    descuento := costo_del_producto*0.2;
    subtotal := costo_del_producto-descuento;
    IVA := subtotal*0.15;
    ICE := subtotal*0.08;
    total := subtotal+IVA+ICE;
    writeln ('Valor de ICE: ', ICE:0:6);
    writeln ('Valor de IVA: ', IVA:0:6);
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de subtotal: ', subtotal:0:6);
    writeln ('Valor de total: ', total:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.