Вывести все совершенные числа в промежутке от 1 до 100 . Совершенное число это натуральное число равное сумме своих собственных делителей(отличных от самого числа)
Вывести все совершенные числа в промежутке от 1 до 100 . Совершенное число это натуральное число равное сумме своих собственных делителей(отличных от самого числа)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы