[Maxu]

в borland delphi совсем ноль, как сделать помогите.
Число, равное сумме всех своих делителей, включая 1,
называется совершенными. Составить программу, которая находит и печатает все совершенные числа в интервале от 2 до 500. Р.S.28=1+2+4+7+14=28-совершенное число. Ответ 6 28 496.

Спасибо за ранее!!!

[lmikle]

Ну так и делай.
Напиши процку, которая проверяет, является ли число, переданное ей, совершенным. Для этого можно воспользоваться функцией mod (остаток от деления, если = 0, то число является делителем). Просто в цикде от 1 до N-1 если делитель, то складываешь.

Ну и внешняя процка - просто перебор от 2 до 500 с вызовом этой функции.

[Maxu]

не доходоит... вапще никак
можно примером ???

[Drozh]

Так я понимаю

Код:

function SumDel(Num: Integer): Integer;
var
 Sum, i: Integer;
begin
 Sum := 1;
  for i := 2 to Num-1 do
   if Num mod i = 0 then
    Inc(Sum, i);
 Result := Sum;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
begin
 for i := 2 to 500 do
  if i = SumDel(i) then
   Memo1.Lines.Add(IntToStr(i))
end;