-
Lenguaje
Pascal
-
Descripción
Se necesita calcular el monto a pagar por comprar en una tienda varias botellas de aceite de 1 litro de la misma marca.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program BotellasDeAceite;
uses crt;
var costo_por_botella, monto_a_pagar, numero_de_botellas : real;
begin
write ('Ingresa el valor de costo por botella: ');
readln (costo_por_botella);
write ('Ingresa el valor de numero de botellas: ');
readln (numero_de_botellas);
monto_a_pagar := costo_por_botella*numero_de_botellas;
writeln ('Valor de monto a pagar: ', monto_a_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_por_botella, monto_a_pagar, numero_de_botellas : real;
begin
write ('Ingresa el valor de costo por botella: ');
readln (costo_por_botella);
write ('Ingresa el valor de numero de botellas: ');
readln (numero_de_botellas);
monto_a_pagar := costo_por_botella*numero_de_botellas;
writeln ('Valor de monto a pagar: ', monto_a_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.