• Lenguaje

    Pascal

  • Descripción

    Determinar cuánto pagará una persona por un artículo, considerando que tiene un descuento del 20% y un 15% de impuesto.

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

var descuento, impuesto, pago, precio : real;
begin
    write ('Ingresa el valor de precio: ');
    readln (precio);
    descuento := precio*0.2;
    impuesto := (precio-descuento)*0.15;
    pago := precio-descuento+impuesto;
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de impuesto: ', impuesto:0:6);
    writeln ('Valor de pago: ', pago:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.