-
Lenguaje
Pascal
-
Descripción
El estacionamiento cobra $15.00 la primera hora y $10.00 a partir de la segunda hora, determine cuánto debe pagar un cliente por el estacionamiento de su vehículo, conociendo el tiempo de estacionamiento en horas.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program Estacionamiento;
uses crt;
var pago, tiempo_en_horas : integer;
begin
write ('Ingresa el valor de tiempo en horas: ');
readln (tiempo_en_horas);
pago := 0;
if tiempo_en_horas=1 then
begin
pago := 15;
end;
if tiempo_en_horas>1 then
begin
pago := 15+10*(tiempo_en_horas-1);
end;
writeln ('Valor de pago: ', pago);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var pago, tiempo_en_horas : integer;
begin
write ('Ingresa el valor de tiempo en horas: ');
readln (tiempo_en_horas);
pago := 0;
if tiempo_en_horas=1 then
begin
pago := 15;
end;
if tiempo_en_horas>1 then
begin
pago := 15+10*(tiempo_en_horas-1);
end;
writeln ('Valor de pago: ', pago);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.