Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Descuento
Language: PASCAL
Code:
program ;
Uses crt;
Var ImpB,Descuento,ImpNeto:Real;
begin
     Clrscr;
  writeln('Ingrese un importe bruto'); ReadIn(ImpB)
If ImpB>10000 then
   Descuento:=ImpB*0.15
Else If ImpB>5000 then
        Descuento:=ImpB*0.10
     Else Descuento:=ImpB*0.5
     ImpNeto:=ImpB-Descuento;
WriteIn('Importe a pagar=',ImpNeto:5:2);
end.          
Comments: