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