-
Lenguaje
Pascal
-
Descripción
Determinar el valor de una llamada telefónica, si por los primeros 3 minutos se cobran 300 pesos c/u y 150 por cada minuto adicional. Suponer que las llamadas siempre duran más de 3 minutos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program ValorDeUnaLlamadaTelefonica;
uses crt;
var llamada_telefonica, minutos : integer;
begin
write ('Ingresa el valor de minutos: ');
readln (minutos);
if minutos>3 then
begin
llamada_telefonica := 3*300+(minutos-3)*150;
end
else
begin
llamada_telefonica := minutos*300;
end;
writeln ('Valor de llamada telefonica: ', llamada_telefonica);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var llamada_telefonica, minutos : integer;
begin
write ('Ingresa el valor de minutos: ');
readln (minutos);
if minutos>3 then
begin
llamada_telefonica := 3*300+(minutos-3)*150;
end
else
begin
llamada_telefonica := minutos*300;
end;
writeln ('Valor de llamada telefonica: ', llamada_telefonica);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.