• Lenguaje

    Pascal

  • Descripción

    Obtiene el resultado de aplicar un porcentaje a una cantidad.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program Porcentaje;
uses crt;

var porcentaje, resultado, una_cantidad : real;
begin
    write ('Ingresa el valor de porcentaje: ');
    readln (porcentaje);
    write ('Ingresa el valor de una cantidad: ');
    readln (una_cantidad);
    resultado := una_cantidad*porcentaje/100;
    writeln ('Valor de resultado: ', resultado:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.