Вывести все совершенные числа в диапазон 5 до 200
Вывести все совершенные числа в диапазон 5 до 200
Гость
Ответ(ы) на вопрос:
Гостьсовершенное число это число равное сумме своих делителей отличных от самого числа var
i, s,j : integer; begin
for i := 5 to 200 do
begin
s := 0;
for j := 1 to i div 2 do
if (i mod j = 0) then s := s + j;
if s = i then writeln(i);
end;
end.
Не нашли ответ?
Похожие вопросы