Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответь дан на рисунке рисунке
совершенное число это число равное сумме своих делителей отличных от самого числа
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.
Популярные вопросы