Главная страница

Сумма кратных чисел

{
сумма чисел кратных 3 и 5 в пределах от 1 до 10000
}
Module Module1

    Sub Main()
        Dim a, b, c, d As Integer
        Console.WriteLine("подождите, идет подсчет...")
        For i = 0 To 9999

            For a = 0 To 9999

                If i Mod 3 = 0 Then
                    b = i + i

                End If
                If i Mod 5 = 0 Then
                    c = i + i

                End If
            Next
        Next
        d = c + b
        Console.Clear()
        Console.WriteLine("сумма чисел кратных 3 и 5 в пределах до 10000 =" & d)
        Console.ReadLine()

    End Sub

End Module