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