10 апельсин разделили между девочками и мальчиками, так что у мальчиков их оказалось на 4 больше чем у девочек. Сколько апельсин у мальчиков, а сколько у девочек?
Module Module1
Sub Main()
Dim boys As Integer = 10
Dim girls As Integer = 0
Dim difference As Integer = 4
Do While boys - girls > difference
boys = boys - 1
girls = girls + 1
Loop
Console.WriteLine(" У мальчиков: {0}", boys)
Console.WriteLine(" У девочек: {0}", girls)
Console.ReadKey()
End Sub
End Module
⇢