Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Это программа для вывода простых делителей вводимого числа

Var n, a, i: Integer;
Begin
Writeln (‘Vvedi chislo’);
Readln (a);
n:= a div 2;
for i:=2 to n do
if a mod i=0 then writeln (i);
End.

Как его изменить что бы она определяла сумму всех делителей вводимого числа?

Var n, a, i: Integer; s:longint;
Begin
Writeln ('Vvedi chislo');
Readln (a);
s:=0;
n:= a div 2;
for i:=1 to n do
if a mod i=0 then inc(s,i);
End.

Когда писал первий пост не заметил некоторих вещей...

Цитата

Это программа для вывода простых делителей вводимого числа

Неа, она выводит все делители числа, за исключениям 1 и самого числа.

Так тебе надо сума все делителей, или все-же только простых?

Цитата(Bokul @ 26.05.2006 23:16)

Когда писал первий пост не заметил некоторих вещей...

Мне надо сумму всех делителей числа.

Поиск рулит (с)

http://forum.pascal.net.ru/index.php?showtopic=10996

Цитата(klem4 @ 27.05.2006 14:41)

Поиск рулит (с)

http://forum.pascal.net.ru/index.php?showtopic=10996

Спасибо за ссылку!!!!!!!!!!