Question

СРОЧНО!+50 баллов))
Напишите на языке программирования Паскаль или в виде блок-схемы алгоритм, позволяющий вычислить сумму всех делителей введённого натурального числа.

Answer 1

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var s:=n;
  for var i:=1 to n div 2 do
    if n mod i=0 then s+=i;
  Writeln('Сумма натуральных делителей равна ',s);
end.