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