les nbres parfaits inferieurs a un nbre N

Question

Option Strict Off
Option Explicit On
Imports System


Module Nbres_parfaits
    Dim N As Integer
    Dim i As Integer = 1
    Dim j As Integer = 1
    Dim res As String = "("
    Dim S As Integer = 0
    Sub Main()




        System.Console.Out.Write("donner un nombre: ")
        N = System.Console.In.ReadLine()


        Do


            For j = 1 To i - 1
                If (i Mod j) = 0 Then
                    S = S + j
                End If
                If S = i Then
                    res = res & i & ","
                End If
            Next
            i = +1
        Loop Until i = N
        res = res & ")"


        System.Console.Out.Write("les nombres parfaits inferieurs à " & N & " sont :" & res)


        System.Console.In.ReadLine()


    End Sub

C'est en VB.NET

maroc1enforce · Answer

le programe s'exute pas 
vs pouvez me dire pk?
merci d'avance

sebmafate · Answer

et si tu posais ta question sur le forum vb.net ???

Sébastien FERRAND (blog)
Consultant Indépendant
[Microsoft Visual C# MVP]

Les nbres parfaits inferieurs a un nbre N

2 réponses

Votre réponse

Discussions similaires