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