Дано натуральное число n. Найти сумму его делителей

@Imperator225 · Регистрация: 24.04.2015

Студворк — интернет-сервис помощи студентам

@JokeR.BY · 26.04.2015, 16:07

Pascal

var
    n, i, sum: LongWord;
begin
    Write('n='); ReadLn(n);
    sum := n;
    if (n > 1)
    then
        for i := 1 to n div 2 do
            if (n mod i = 0)
            then
                Inc(sum, i);
    WriteLn('sum=', sum);
end.

@Imperator225 0 / 0 / 0 Регистрация: 24.04.2015 Сообщений: 16
		1
	Дано натуральное число n. Найти сумму его делителей 26.04.2015, 14:57. Показов 2209. Ответов 1 Метки нет (Все метки) Дано натуральное число n. Найти сумму его делителей 0

	26.04.2015, 16:07

Опции темы

Дано натуральное число n. Найти сумму его делителей

Решение