borja peek

Signed by Yharim♥

Cuiki Cuiki

Oye dame un pedazo de ese chocolate

Devolve las milanesas

Module MainModule

Sub Main()
Dim totalPersonas As Integer
Dim precioPlato As Double = 4000
Dim totalPagar As Double

' Solicitar la cantidad total de personas
Console.Write("Ingrese la cantidad total de personas: ")
totalPersonas = Convert.ToInt32(Console.ReadLine())

' Calcular el monto a pagar sin descuento
If totalPersonas <= 100 Then
totalPagar = totalPersonas * precioPlato
Else
' Aplicar el descuento del 30% si hay más de 100 personas
totalPagar = (totalPersonas * precioPlato) * 0.7
End If

' Mostrar el monto total a pagar
Console.WriteLine("El monto total a pagar es: " & totalPagar.ToString("C"))
Console.ReadLine()
End Sub

End Module