תרגיל 5 שאלה 2

Module Module1

    Sub Main()
        Dim time As Integer = CInt(Console.ReadLine)
        Dim days As Integer = (time \ 86400)
        Dim hours As Integer = (time \ 3600)
        Dim minutes As Integer = (time \ 60)
        Dim seconds As Integer = (time)
        If days > 0 Then
            Console.Write(days & " days ")
        End If

        If hours > 0 Then
            Console.Write(days Mod hours & " hours ")
        End If
        If minutes > 0 Then
            Console.Write(hours Mod minutes & " minutes ")
        End If
        If seconds > 0 Then
            Console.Write(minutes Mod seconds & " seconds")
        End If
        Console.ReadKey()

    End Sub

End Module