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

0 голосов
35 просмотров

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


Информатика (12 баллов) | 35 просмотров
Дан 1 ответ
0 голосов

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)
(3.2k баллов)