-
Lenguaje
Pascal
-
Descripción
Un mayorista compra a un agricultor un lote de X naranjas a Y pesos la docena. Después de vender todas las naranjas a los detallistas, obtiene K pesos. Calcular el porcentaje de ganancia obtenida en la inversión.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program GananciaDeVentaDeNaranjas;
uses crt;
var K, X, Y, resultado : real;
begin
write ('Ingresa el valor de K: ');
readln (K);
write ('Ingresa el valor de X: ');
readln (X);
write ('Ingresa el valor de Y: ');
readln (Y);
resultado := K*100*12/X/Y-100;
writeln ('Valor de resultado: ', resultado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var K, X, Y, resultado : real;
begin
write ('Ingresa el valor de K: ');
readln (K);
write ('Ingresa el valor de X: ');
readln (X);
write ('Ingresa el valor de Y: ');
readln (Y);
resultado := K*100*12/X/Y-100;
writeln ('Valor de resultado: ', resultado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.