[Сеня]

Задача-Разложение числа на простые множители!
решить я её решил,но вся проблема в том,что её нужно сделать в объектах!может кто нибудь помочь ???вот пример самой программы

Код:

chislo:=StrToInt(Edit1.Text);
i:=2;
while chislo >= i do
  if (chislo mod i) = 0 then
    begin
      Memo1.Lines.Add(IntToStr(i));
      chislo:= chislo div i;
        if chislo >= i then
          Memo1.Lines.Add('*');
    end
  else
  i:=i+1;

lmikle: Убъю, нафиг, за неиспользование тегов!!!