-
Lenguaje
Pascal
-
Descripción
En un montallantas se ha establecido una promoción de las llantas marca Ponchadas, dicha promoción consiste en lo siguiente: Si se compran menos de cinco llantas el precio es de $300 cada una, de $250 si se compran de cinco a 10 y de $200 si se compran más de 10. Obtener la cantidad de dinero que una persona tiene que pagar por cada una de las llantas que compra y la que tiene que pagar por el total de la compra.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program Montallantas;
uses crt;
var numero_de_llantas, precio_por_llanta, total_de_la_compra : integer;
begin
write ('Ingresa el valor de numero de llantas: ');
readln (numero_de_llantas);
precio_por_llanta := 300;
if (numero_de_llantas>=5) and (numero_de_llantas<=10) then
begin
precio_por_llanta := 250;
end;
if numero_de_llantas>10 then
begin
precio_por_llanta := 200;
end;
total_de_la_compra := precio_por_llanta*numero_de_llantas;
writeln ('Valor de precio por llanta: ', precio_por_llanta);
writeln ('Valor de total de la compra: ', total_de_la_compra);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var numero_de_llantas, precio_por_llanta, total_de_la_compra : integer;
begin
write ('Ingresa el valor de numero de llantas: ');
readln (numero_de_llantas);
precio_por_llanta := 300;
if (numero_de_llantas>=5) and (numero_de_llantas<=10) then
begin
precio_por_llanta := 250;
end;
if numero_de_llantas>10 then
begin
precio_por_llanta := 200;
end;
total_de_la_compra := precio_por_llanta*numero_de_llantas;
writeln ('Valor de precio por llanta: ', precio_por_llanta);
writeln ('Valor de total de la compra: ', total_de_la_compra);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.