• Lenguaje

    Pascal

  • Descripción

    Leer el número de unidades consumidas de cada alimento o bebida ordenado y calcular la cuenta total del pedido.
    Trago ron Barcelo (4 dólares)
    Bocadillo de jamón y queso (3 dólares)
    Papas fritas con chorizo (5 dólares)
    Refresco (1 dólar)
    Cerveza Stella A. (2 dólares)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program CuentaDeCadaAlimentoOBebida;
uses crt;

var bocadillos_de_jamon_y_queso, cervezas_stella_a, cuenta_total, papas_fritas_con_chorizo, refrescos : integer;
var tragos_de_ron_barcelo : integer;
begin
    write ('Ingresa el valor de bocadillos de jamon y queso: ');
    readln (bocadillos_de_jamon_y_queso);
    write ('Ingresa el valor de cervezas stella a: ');
    readln (cervezas_stella_a);
    write ('Ingresa el valor de papas fritas con chorizo: ');
    readln (papas_fritas_con_chorizo);
    write ('Ingresa el valor de refrescos: ');
    readln (refrescos);
    write ('Ingresa el valor de tragos de ron barcelo: ');
    readln (tragos_de_ron_barcelo);
    cuenta_total := tragos_de_ron_barcelo*4+bocadillos_de_jamon_y_queso*3+papas_fritas_con_chorizo*5+refrescos+cervezas_stella_a*2;
    writeln ('Valor de cuenta total: ', cuenta_total);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.