Составьте алгоритм и программу находящию сумму делителей заданного числа.
Составьте алгоритм и программу находящию сумму делителей заданного числа.
Гость
Ответ(ы) на вопрос:
Гость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)
Не нашли ответ?
Похожие вопросы