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

Question

Информатика

Евгена

10 ноября, 05:26

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

+1

Ответы (1)

Знаете ответ на вопрос?

Данилыч · Answer 1

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.