• Lenguaje

    Pascal

  • Descripción

    El estacionamiento "Reforma" desea brindar un servicio más eficiente, para ello se debe crear un programa que permita conocer cuánto debe cobrar de tarifa al cliente por el tiempo de uso, considerando lo siguiente:
    - Las dos primeras horas son sin costo.
    - Después de dos horas se cobra $10 por cada hora transcurrida. Ejemplo: si un cliente ocupo cuatro horas el estacionamiento se le deberá cobrar $20.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program EstacionamientoReforma;
uses crt;

var cobro, horas : integer;
begin
    write ('Ingresa el valor de horas: ');
    readln (horas);
    if horas>2 then
        begin
            cobro := (horas-2)*10;
        end
    else
        begin
            cobro := 0;
        end;
    writeln ('Valor de cobro: ', cobro);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.