-
Lenguaje
Pascal
-
Descripción
Muestre el monto de alquiler mensual que debe cancelar una persona, sabiendo que debe pagar $45 por cada habitación que tenga la casa, adicional a ello debe pagar un monto por la limpieza de la casa, este monto es de $10 mensual para las viviendas que tienen 8 habitaciones o más, y $7 mensual para las viviendas que tiene menos de 8 habitaciones.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program AlquilerMensual;
uses crt;
var alquiler, limpieza, numero_de_habitaciones : integer;
begin
write ('Ingresa el valor de numero de habitaciones: ');
readln (numero_de_habitaciones);
if numero_de_habitaciones>=8 then
begin
limpieza := 10;
end
else
begin
limpieza := 7;
end;
alquiler := numero_de_habitaciones*45+limpieza;
writeln ('Valor de alquiler: ', alquiler);
writeln ('Valor de limpieza: ', limpieza);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var alquiler, limpieza, numero_de_habitaciones : integer;
begin
write ('Ingresa el valor de numero de habitaciones: ');
readln (numero_de_habitaciones);
if numero_de_habitaciones>=8 then
begin
limpieza := 10;
end
else
begin
limpieza := 7;
end;
alquiler := numero_de_habitaciones*45+limpieza;
writeln ('Valor de alquiler: ', alquiler);
writeln ('Valor de limpieza: ', limpieza);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.