Сумма кратных чисел
- Подробности
- Автор: Земляков Кирилл
{
сумма чисел кратных 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
Программа, к сожалению, содержит ошибки, которые Кирилл до сих пор не устранил.
Е.Е. Квасов