Вывести все совершенные числа в промежутке от 1 до 100 . Совершенное число это натуральное число равное сумме своих собственных делителей(отличных от самого числа)

Ответы:

Вячеслав Борщ

15-11-2016 22:17

Var i, j, s: integer;Begin For j:=1 to 100 do Begin s := 0; For i := 1 to (j div 2) do if (j mod i = 0) then s := s + i; if (j = s) then writeln(s); End;End.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Жека Светов

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Вывести все совершенные числа в промежутке от 1 до 100 . Совершенное число это натуральное число равное сумме своих собственных делителей(отличных от самого числа)» от пользователя Жека Светов в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!