Найти все делители числа 1234 Язык Visual Basic 2010 Помогите!!!

Найти все делители числа 1234 Язык Visual Basic 2010 Помогите!!!
Гость
Ответ(ы) на вопрос:
Гость
Sub Main()     Dim i, n As Integer     Dim s As String     s = ""     n = 1234     For i = 1 To Int(n / 2)         If n Mod i = 0 Then             s = s + Str(i) + " "         End If     Next i     MsgBox s End Sub
Не нашли ответ?
Ответить на вопрос
Похожие вопросы