• Lenguaje

    Pascal

  • Descripción

    Calcular el monto a pagar por telefonía celular, sabiendo que los primeros 30 minutos es a tarifa plana de $30, los siguientes 30 minutos a razón de $0.20 el minuto y en adelante $0.15 el minuto.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program PagoPorTelefoniaCelular;
uses crt;

var minutos, monto_a_pagar : real;
begin
    write ('Ingresa el valor de minutos: ');
    readln (minutos);
    monto_a_pagar := 0;
    if (minutos>0) and (minutos<=30) then
        begin
            monto_a_pagar := 30;
        end;
    if (minutos>30) and (minutos<=60) then
        begin
            monto_a_pagar := 30+(minutos-30)*0.2;
        end;
    if minutos>60 then
        begin
            monto_a_pagar := 30+30*0.2+(minutos-60)*0.15;
        end;
    writeln ('Valor de monto a pagar: ', monto_a_pagar:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.