-
Lenguaje
Pascal
-
Descripción
El 14 de febrero una persona desea comprarle un regalo al ser querido que más aprecia en ese momento, su dilema radica en qué regalo puede hacerle, las alternativas que tiene son las siguientes:
Regalo | Costo
Tarjeta | $10.00 o menos
Chocolates | $11.00 a $100.00
Flores | $101.00 a $250.00
Anillo | Más de $251.00
Determinar qué regalo se le puede comprar a ese ser tan especial por el día del amor y la amistad.
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 RegaloParaEl14DeFebrero;
uses crt;
var presupuesto : integer;
begin
write ('Ingresa el valor de presupuesto: ');
readln (presupuesto);
if presupuesto<=10 then
begin
writeln ('Tarjeta');
end;
if (presupuesto>=11) and (presupuesto<=100) then
begin
writeln ('Chocolates');
end;
if (presupuesto>=101) and (presupuesto<=250) then
begin
writeln ('Flores');
end;
if presupuesto>=251 then
begin
writeln ('Anillo');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var presupuesto : integer;
begin
write ('Ingresa el valor de presupuesto: ');
readln (presupuesto);
if presupuesto<=10 then
begin
writeln ('Tarjeta');
end;
if (presupuesto>=11) and (presupuesto<=100) then
begin
writeln ('Chocolates');
end;
if (presupuesto>=101) and (presupuesto<=250) then
begin
writeln ('Flores');
end;
if presupuesto>=251 then
begin
writeln ('Anillo');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.