-
Lenguaje
Pascal
-
Descripción
El dueño de una tienda compra un artículo a un determinado precio. Realizar un algoritmo que permita calcular el precio en el que lo debe vender para obtener una ganancia del 30%.
1
2
3
4
5
6
7
8
9
10
11
12
13
2
3
4
5
6
7
8
9
10
11
12
13
program GananciaDel30;
uses crt;
var precio_de_costo, precio_de_venta : real;
begin
write ('Ingresa el valor de precio de costo: ');
readln (precio_de_costo);
precio_de_venta := precio_de_costo*1.3;
writeln ('Valor de precio de venta: ', precio_de_venta:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var precio_de_costo, precio_de_venta : real;
begin
write ('Ingresa el valor de precio de costo: ');
readln (precio_de_costo);
precio_de_venta := precio_de_costo*1.3;
writeln ('Valor de precio de venta: ', precio_de_venta:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.