АМ
Анатолий Милкин
Можете помочь с программированием??!!
Паскаль.
Дано число n. Найти (подсчитать) сумму всех чисел, на которые n делится без остатка.
Заранее спасибо !!
Паскаль.
Дано число n. Найти (подсчитать) сумму всех чисел, на которые n делится без остатка.
Заранее спасибо !!
#include
#include
int main() {
int n, k, sum;
printf("n?.. ");
scanf_s("%d", &n);
sum = n;
for (k = 1; k < n / 2; k++) if (!(n % k)) sum += k;
printf("sum = %d\n", sum);
_getch();
return 0;
}