-
Lenguaje
Pascal
-
Descripción
El dueño de una casa quiere alquilarla queriendo obtener una cantidad X de pesos, pero tiene que pagar un impuesto de Y, que es un porcentaje sobre el monto del alquiler. Determinar ¿Cuánto debe ser el alquiler para obtener la cantidad X?
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 ImpuestoPorAlquiler;
uses crt;
var alquiler, cantidad_X, impuesto_Y, porcentaje_de_impuesto : real;
begin
write ('Ingresa el valor de cantidad X: ');
readln (cantidad_X);
write ('Ingresa el valor de porcentaje de impuesto: ');
readln (porcentaje_de_impuesto);
impuesto_Y := porcentaje_de_impuesto*cantidad_X/100;
alquiler := cantidad_X+impuesto_Y;
writeln ('Valor de alquiler: ', alquiler:0:6);
writeln ('Valor de impuesto Y: ', impuesto_Y:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var alquiler, cantidad_X, impuesto_Y, porcentaje_de_impuesto : real;
begin
write ('Ingresa el valor de cantidad X: ');
readln (cantidad_X);
write ('Ingresa el valor de porcentaje de impuesto: ');
readln (porcentaje_de_impuesto);
impuesto_Y := porcentaje_de_impuesto*cantidad_X/100;
alquiler := cantidad_X+impuesto_Y;
writeln ('Valor de alquiler: ', alquiler:0:6);
writeln ('Valor de impuesto Y: ', impuesto_Y:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.