-
Lenguaje
Pascal
-
Descripción
Determinar la cantidad total a pagar por una llamada telefónica local (N) (introducida por el usuario) teniendo en cuenta lo siguiente:
A. Las llamadas locales de 5 minutos o menos tienen un costo de 8.50 pesos el minuto.
B. Cada minuto adicional a partir de los 5 minutos cuesta 5 pesos mas.
C. Mostrar en pantalla el monto total por llamada.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program PagoPorUnaLlamadaTelefonicaLocal;
uses crt;
var N, monto_total : real;
begin
write ('Ingresa el valor de N: ');
readln (N);
monto_total := N*8.5;
if N>5 then
begin
monto_total := monto_total+(N-5)*5;
end;
writeln ('Valor de monto total: ', monto_total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var N, monto_total : real;
begin
write ('Ingresa el valor de N: ');
readln (N);
monto_total := N*8.5;
if N>5 then
begin
monto_total := monto_total+(N-5)*5;
end;
writeln ('Valor de monto total: ', monto_total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.