Составьте алгоритм и программу находящию сумму делителей заданного числа.

Question

Составьте алгоритм и программу находящию сумму делителей заданного числа.

Answer 1

VB.
Dim n as Integer
n=InputBox("Число:")
Dim Summ as Integer
Dim i as Integer

For i= 1 to n
   If n mod i = 0 then Summ=Summ+i
Next

MsgBox (Summ)