Вывести все совершенные числа в промежутке от 1 до 100 . Совершенное число это натуральное число равное сумме своих собственных делителей(отличных от самого числа)
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.