-
Lenguaje
Pascal
-
Descripción
Escribe el porcentaje descontado en una compra, introduciendo por teclado el precio de la tarifa y el precio pagado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program PorcentajeDescontado;
uses crt;
var porcentaje_descontado, precio_de_la_tarifa, precio_pagado : real;
begin
write ('Ingresa el valor de precio de la tarifa: ');
readln (precio_de_la_tarifa);
write ('Ingresa el valor de precio pagado: ');
readln (precio_pagado);
porcentaje_descontado := (1.0-precio_pagado/precio_de_la_tarifa)*100;
writeln ('Valor de porcentaje descontado: ', porcentaje_descontado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var porcentaje_descontado, precio_de_la_tarifa, precio_pagado : real;
begin
write ('Ingresa el valor de precio de la tarifa: ');
readln (precio_de_la_tarifa);
write ('Ingresa el valor de precio pagado: ');
readln (precio_pagado);
porcentaje_descontado := (1.0-precio_pagado/precio_de_la_tarifa)*100;
writeln ('Valor de porcentaje descontado: ', porcentaje_descontado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.