Найти сумму делителей введенного с клавиатуры числа

@Александр9797 · Регистрация: 17.11.2015

Author24 — интернет-сервис помощи студентам

Задача в Excel в VBA.

@OLEGOFF · 25.03.2017, 19:40

Александр9797, тут смотрели?
Вывести на экран сумму делителей числа N

@~~MyExcel_17~~ · 25.03.2017, 22:09

Сообщение от Александр9797

Задача в Excel в VBA

Александр9797, вот так надо, пусть число "34".

Visual Basic

Sub Александр9797()
n = InputBox("N=")
For i = 1 To n
  If n Mod i = 0 Then s = s + i
Next i
Debug.Print s
'сумма всех делителей для числа 34
MsgBox s
For i = 1 To n Step 1
    If n Mod i = 0 Then Debug.Print "i ="; i
    'перечисляются все делители числа 34
    Next i
End Sub
 
' 54 
'i = 1 
'i = 2 
'i = 17 
'i = 34

@~~MyExcel_17~~ · 25.03.2017, 22:10

Сообщение от Александр9797

Задача в Excel в VBA

Александр9797, вот так надо, пусть число "34".

Visual Basic

Sub Александр9797()
n = InputBox("N=")
For i = 1 To n
  If n Mod i = 0 Then s = s + i
Next i
Debug.Print s
'сумма всех делителей для числа 34
MsgBox s
For i = 1 To n Step 1
    If n Mod i = 0 Then Debug.Print "i ="; i
    'перечисляются все делители числа 34
    Next i
End Sub
 
' 54 
'i = 1 
'i = 2 
'i = 17 
'i = 34

@Александр9797 2 / 2 / 3 Регистрация: 17.11.2015 Сообщений: 395
		1
	Найти сумму делителей введенного с клавиатуры числа 25.03.2017, 15:47. Показов 2421. Ответов 3 Метки нет (Все метки) Задача в Excel в VBA. 0

@OLEGOFF 1082 / 521 / 142 Регистрация: 27.02.2013 Сообщений: 1,502
	25.03.2017, 19:40	2
	Александр9797, тут смотрели? Вывести на экран сумму делителей числа N 1

	25.03.2017, 22:10

Найти сумму делителей введенного с клавиатуры числа

Решение