• Lenguaje

    Pascal

  • Descripción

    Determina qué paquete se puede comprar una persona con el dinero que recibirá en diciembre, considerando lo siguiente:
    - Paquete A. Si recibe $50,000 o más se comprará una televisión, un modular, tres pares de zapatos, cinco camisas y cinco pantalones.
    - Paquete B. Si recibe menos de $50,000 pero más (o igual) de $20,000, se comprará una grabadora, tres pares de zapatos, cinco camisas y cinco pantalones.
    - Paquete C. Si recibe menos de $20,000 pero más (o igual) de $10,000, se comprará dos pares de zapatos, tres camisas y tres pantalones.
    - Paquete D. Si recibe menos de $10,000, se tendrá que conformar con un par de zapatos, dos camisas y dos pantalones.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program CompraDeUnPaquete;
uses crt;

var dinero_recibido : real;
begin
    write ('Ingresa el valor de dinero recibido: ');
    readln (dinero_recibido);
    if dinero_recibido>=50000 then
        begin
            writeln ('Paquete A');
        end;
    if (dinero_recibido>=20000) and (dinero_recibido<50000) then
        begin
            writeln ('Paquete B');
        end;
    if (dinero_recibido>=10000) and (dinero_recibido<20000) then
        begin
            writeln ('Paquete C');
        end;
    if dinero_recibido<10000 then
        begin
            writeln ('Paquete D');
        end;
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.