-
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
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.
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.