• Дано натуральное число N.Определить , является ли оно совершенным (совершенное число равно сумме всех своих делителей , не превосходящих само число)

Ответы 1

  • var numb,k,summa:integer;beginreadln(numb);for k:= 1 to (numb-1) dobeginif numb mod k = 0 thensumma:=summa+k;end;if summa = numb thenwriteln('Совершенное')elsewriteln('Несовершенное');end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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