-
Lenguaje
Pascal
-
Descripción
Determinar el costo que tendrá realizar una llamada telefónica con base en el tiempo que dura y en el costo por minuto. Realice un programa que permita solucionar tal situación.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program CostoDeUnaLlamadaTelefonica;
uses crt;
var costo, costo_por_minuto, tiempo_en_minutos : real;
begin
write ('Ingresa el valor de costo por minuto: ');
readln (costo_por_minuto);
write ('Ingresa el valor de tiempo en minutos: ');
readln (tiempo_en_minutos);
costo := tiempo_en_minutos*costo_por_minuto;
writeln ('Valor de costo: ', costo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo, costo_por_minuto, tiempo_en_minutos : real;
begin
write ('Ingresa el valor de costo por minuto: ');
readln (costo_por_minuto);
write ('Ingresa el valor de tiempo en minutos: ');
readln (tiempo_en_minutos);
costo := tiempo_en_minutos*costo_por_minuto;
writeln ('Valor de costo: ', costo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.