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