< >

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

Ответы

Ответ дал: Dmon55
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)
Похожие вопросы
Английский язык
2 года назад
Перевести  предложения !   пожалуйстааа  помогите !!!SOS
Русский язык
2 года назад
расположите величины в порядке возрастания: а)2/5 т; 1/2 т; 6/10 т; 25/100 т; 7/8 т. б)1/2 а; 3/4 а; 2/5 а; 12/20 а; 20/25 а. в)1/2 ч; 2/3ч; 5/6 ч; 8/12 ч; 12/15ч. извените не тот предмет.
Математика
7 лет назад
Решите пожалуйста, срочно
Геометрия
7 лет назад
Помогите пж по геометрии у меня ведёт директор 16.1-16.4 дам 5 баллов
Биология
10 лет назад
З водойм,де цвітіння не спостерігалось, зачерпнули відро води і залишили його на березі.Через добу вода зацвіла.як пояснити це явище?
Математика
10 лет назад
написать 10 предложений о дожде 
Алгебра
10 лет назад
необходимо интегрировать x/(x^2+1)
Математика
10 лет назад
найдите значение выражения log по основанию 16 17 в кубе разделить на log по основанию 16 корень из 17