Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ejercicio.pas
Language: PASCAL
Code:
PROGRAM EJERCICIO; 
        USES CRT;
        VAR Compra:INTEGER;
        VAR descuento, total:DOUBLE;

BEGIN
        ClrScr;

        WRITELN ('Ingrese el total a pagar por la compra');   
        READLN (compra);
        IF compra <= 2000 THEN descuento:=compra*0.05;
        ELSE IF (compra>= 2000) OR (compra<= 3000) THEN descuento:=compra*0.08;
        ELSE IF (compra>=3000) THEN descuento:=compra*0.08;
           
           WRITELN ('Por la compra realizada su descuento es de',descuento:5:2);
           total:=compra-descuento;
           WRITELN ('Total a pagar =',total:5:2);

            
END     
          
Comments: