Вывести все совершенные числа в диапазон 5 до 200

Question

Информатика

Васена

10 августа, 20:43

Вывести все совершенные числа в диапазон 5 до 200

+5

Ответы (1)

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

Олюля · Answer 1

совершенное число это число равное сумме своих делителей отличных от самого числа

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.