-
Lenguaje
Pascal
-
Descripción
Para mi cumpleaños, voy invitar a varios amigos, a cada uno le voy a invitar una bebida personal, una empanada de pollo y un muffin de chocolate. Calcular el monto total que debo pagar para que cada uno de mis invitados reciba lo indicado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program InvitadosACumpleanos;
uses crt;
var cantidad_de_invitados, costo_de_bebida_personal, costo_de_empanada_de_pollo, costo_de_muffin_de_chocolate, monto_total : real;
begin
write ('Ingresa el valor de cantidad de invitados: ');
readln (cantidad_de_invitados);
write ('Ingresa el valor de costo de bebida personal: ');
readln (costo_de_bebida_personal);
write ('Ingresa el valor de costo de empanada de pollo: ');
readln (costo_de_empanada_de_pollo);
write ('Ingresa el valor de costo de muffin de chocolate: ');
readln (costo_de_muffin_de_chocolate);
monto_total := cantidad_de_invitados*(costo_de_bebida_personal+costo_de_empanada_de_pollo+costo_de_muffin_de_chocolate);
writeln ('Valor de monto total: ', monto_total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_de_invitados, costo_de_bebida_personal, costo_de_empanada_de_pollo, costo_de_muffin_de_chocolate, monto_total : real;
begin
write ('Ingresa el valor de cantidad de invitados: ');
readln (cantidad_de_invitados);
write ('Ingresa el valor de costo de bebida personal: ');
readln (costo_de_bebida_personal);
write ('Ingresa el valor de costo de empanada de pollo: ');
readln (costo_de_empanada_de_pollo);
write ('Ingresa el valor de costo de muffin de chocolate: ');
readln (costo_de_muffin_de_chocolate);
monto_total := cantidad_de_invitados*(costo_de_bebida_personal+costo_de_empanada_de_pollo+costo_de_muffin_de_chocolate);
writeln ('Valor de monto total: ', monto_total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.