-
Lenguaje
Pascal
-
Descripción
Determine si se debe otorgar un descuento adicional del 5% a un nuevo cliente que hace un gran pedido de mercancía con un monto mayor a $5000 y que amenaza con cancelar el pedido sino se le otorga el máximo descuento posible. Según el monto entonces muestre cuanto se le aplicará de descuento o cero en caso que no cumpla la condición.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program DescuentoDel5;
uses crt;
var descuento, monto : real;
begin
write ('Ingresa el valor de monto: ');
readln (monto);
if monto>5000 then
begin
descuento := monto*0.05;
end
else
begin
descuento := 0;
end;
writeln ('Valor de descuento: ', descuento:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var descuento, monto : real;
begin
write ('Ingresa el valor de monto: ');
readln (monto);
if monto>5000 then
begin
descuento := monto*0.05;
end
else
begin
descuento := 0;
end;
writeln ('Valor de descuento: ', descuento:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.