Derecho

Parte3
Ejercicio1
Module Module1
Dim nk, i As Integer
Dim pk, mp, mt, desc As Decimal
Sub Main()
Console.Write("Ingrese precio de naranjas por kilo : ")
pk =Console.ReadLine()
mt = 0
For i = 1 To 15
Console.Write(i.ToString + ".-Ingrese numero de kilos a comprar: ")
nk = Console.ReadLine()
desc = 0.0If nk > 10 Then desc = 0.15 * (nk * pk)
Console.WriteLine("Descuento de compra: " + desc.ToString)
mp = (nk * pk) - desc
Console.WriteLine("Monto apagar del Cleinte" + i.ToString + ": " + mp.ToString)
mt = mt + mp
Next
Console.WriteLine("ingresos de la tiendas por las compras: " + mt.ToString)Console.ReadLine()
End Sub
End Module

Ejercico 3
Module Module1
Dim m, s, i, mm, apto, mt As Integer
Dim p As Decimal
Sub Main()
apto = 0
mt = 0
mm = 0
s =0
For i = 1 To 10
Console.Write("Ingrese minutos: ")
m = Console.ReadLine()
If m 15 Then mm = mm + 1
s = s + m
Next
p =s / 10
If mt < 10 Then If mm > 1 Then apto = apto + 1
If p > 15 Then apto = apto + 1
If apto > 1 Then
Console.WriteLine("Busque otra especialidad")Else
Console.WriteLine("Si es Apto")
End If
Console.ReadLine()
End Sub
End Module

Ejercicio 4
Module Module1
Dim i As Integer
Sub Main()For i = 1 To 100
Console.WriteLine(i.ToString)
Next
Console.ReadLine()
End Sub
End Module
Ejercicio 5
Module Module1
Dim i As Integer
Sub Main()For i = 2 To 100 Step 2
Console.WriteLine(i.ToString)
Next
Console.ReadLine()
End Sub
End Module
Ejercicio6
Module Module1
Dim i As Integer
Sub...