Рекурсия, Delphi

[NataliK1991]

Рекурсия, Delphi

Натуральное число М называется совершенным, если оно равно сумме всех своих делителей, включая 1, но исключая себя. Напечатать все совершенные числа, меньшие заданного числа N. Код с применением циклов переделать на рекурсию..
У меня чет не выходит.

program Sovershennye_chisla; 
{$APPTYPE CONSOLE}
uses   SysUtils;
var N: word;
      i, j, k, s: integer;  
begin  
write (‘Vvedite cheloe pologitelnoe chislo N=’);
readln (N);
k:=0;
i:=1;
while i<N do 
	begin
  	s:=0;
 	for j:=1 to i div 2 do
  		if i mod j=0 then s:=s+j;
   			begin
   		       write(i,' ');
  	 	       k:=1;
  	 	end;
i:=i+1;
 	end;
if  k=0 then write ('Sovershennyh chisel net');
end.

 

[Gruvi]

почему ты использовал while для рекурсии???
вот допустим программа для нахождения факториала

procedure TfmExample.bbRunClick(Sender: TObject);
function Factorial(N: Word): Extended;
begin
if N = 0 then
Result: = 1 else
Result := N * Factorial(N - 1)
end;
var
N: Integer;
begin
try
N := StrToInt(Trim(edinput.Text));
except
Exit; end;
IbOutput.Caption := FloatToStr(Factorial(N))
end;

а вообще советую посмотреть вот это сайт , сам им пользуюсь не первый год уже.

 

[NataliK1991]

Спасибо, попробую еще