Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Пожалуйста, помогите написать программу в паскале. Дано число N. Найти сумму его делителей.

Ответ оставил Гость

Var n,s,i:integer;
begin
write(N = ); readln(n);
if n>1 then s:=1+n else s:=1;
for i:=2 to n div 2 do
 if n mod i = 0 then s:=s+i;
writeln(S = ,s);
end.

Пример:
N = 12
S = 28