Imports System

Public Module Module1

    Public Sub Main()

        dim num as double

        dim dispari, cont, segno as integer

        Do 

            Console.WriteLine(" Inserisci un numero ")

            num=Console.ReadLine()

        loop Until (num>0)

        cont=0

        dispari=-1

        While Not (num=cont)

            cont=cont+1

            dispari=dispari+2

            If cont Mod 2=0 then

                segno= -1

            else

                segno= +1

            end if

            Console.WriteLine(cstr(segno)+"/"+cstr(dispari))

        End while

    end sub

end module