• Найти все совершенные числа до 100000. Совершенное число - это такое число, которое равно сумме всех своих делителей, кроме себя самого. Например, число 6 является совершенным, т.к. кроме себя самого делится на числа 1, 2 и 3, которые в сумме дают 6.

Ответы 2

  • var i,j,s,n:integer; beginreadln(n);for i := 1 to n-1 do begin s:=0; for j := 1 to (i div 2) do if i mod j=0 then s:=s+j; if s=i then write(i,' '); end;end.
  • PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018Внимание! Если программа не работает, обновите версию!begin  for var i:=1 to 100000 do begin    var s:=0;    for var j:=1 to i div 2 do      if i mod j=0 then s+=j;      if s=i then Print(i)    end;  Writelnend.Результат6 28 496 8128
    • Автор:

      lesly1exp
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years