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