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

Question

Информатика

Нестор

21 февраля, 09:54

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

+1

Ответы (1)

Знаешь ответ?

Милослава · 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)