• Lenguaje

    Pascal

  • Descripción

    Determine el monto a pagar en una pollería ingresando la cantidad comprada de pollos, ensaladas y gaseosas, sabiendo que cada pollo cuesta S/. 24.00, cada ensalada S/. 5.00 y cada gaseosa S/. 4.50.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program CompraDePollosEnsaladasYGaseosas;
uses crt;

var cantidad_de_ensaladas, cantidad_de_gaseosas, cantidad_de_pollos, monto_a_pagar : real;
begin
    write ('Ingresa el valor de cantidad de ensaladas: ');
    readln (cantidad_de_ensaladas);
    write ('Ingresa el valor de cantidad de gaseosas: ');
    readln (cantidad_de_gaseosas);
    write ('Ingresa el valor de cantidad de pollos: ');
    readln (cantidad_de_pollos);
    monto_a_pagar := 24.0*cantidad_de_pollos+5.0*cantidad_de_ensaladas+4.5*cantidad_de_gaseosas;
    writeln ('Valor de monto a pagar: ', monto_a_pagar:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.