-
Lenguaje
Pascal
-
Descripción
Determinar la cantidad total a pagar de una llamada telefónica, teniendo en cuenta lo siguiente:
1) Toda llamada que dure 3 minutos, tiene un costo de 200 pesos por minuto.
2) Toda llamada que dure entre 3 y 10 minutos cuesta 150 pesos por minuto.
3) Toda llamada que dure mas de 10 minutos cuesta 100 pesos por 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 PagoPorUnaLlamadaTelefonica;
uses crt;
var duracion_en_minutos, total_a_pagar : integer;
begin
write ('Ingresa el valor de duracion en minutos: ');
readln (duracion_en_minutos);
total_a_pagar := 0;
if duracion_en_minutos<=3 then
begin
total_a_pagar := duracion_en_minutos*200;
end;
if (duracion_en_minutos>3) and (duracion_en_minutos<=10) then
begin
total_a_pagar := duracion_en_minutos*150;
end;
if duracion_en_minutos>10 then
begin
total_a_pagar := duracion_en_minutos*100;
end;
writeln ('Valor de total a pagar: ', total_a_pagar);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var duracion_en_minutos, total_a_pagar : integer;
begin
write ('Ingresa el valor de duracion en minutos: ');
readln (duracion_en_minutos);
total_a_pagar := 0;
if duracion_en_minutos<=3 then
begin
total_a_pagar := duracion_en_minutos*200;
end;
if (duracion_en_minutos>3) and (duracion_en_minutos<=10) then
begin
total_a_pagar := duracion_en_minutos*150;
end;
if duracion_en_minutos>10 then
begin
total_a_pagar := duracion_en_minutos*100;
end;
writeln ('Valor de total a pagar: ', total_a_pagar);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.