fork download
  1. Imports System.Text
  2.  
  3. Module Module1
  4. Dim builder As New StringBuilder
  5. Sub Main()
  6. Dim C As Integer = Console.ReadLine()
  7. Dim Arr(C - 1, 2) As Integer
  8. Dim Input As String = ""
  9.  
  10. For i As Integer = 0 To C - 1
  11. Input = Console.ReadLine()
  12. Arr(i, 0) = Input.Split(" ")(0)
  13. Arr(i, 1) = Input.Split(" ")(1)
  14. Arr(i, 2) = Input.Split(" ")(2)
  15. Next
  16.  
  17. Console.Write(RoomNum(Arr))
  18. Console.Read()
  19. End Sub
  20.  
  21. Private Function RoomNum(ByVal Arr As Integer(,)) As StringBuilder
  22. Dim Cnt As Integer = Arr.GetUpperBound(0)
  23.  
  24. For i As Integer = 0 To Cnt
  25. builder.Append(CStr(Arr(i, 2) / Arr(i, 0) + 1) + CStr(Arr(i, 2) Mod Arr(i, 0)))
  26. Next
  27.  
  28. Return builder
  29. End Function
  30. End Module
Success #stdin #stdout 0.02s 15400KB
stdin
2
6 12 10
30 50 72
stdout
2.6666666666666743.412