Найти все делители числа 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
Не нашли ответ?
Похожие вопросы