Натуральное число М называется совершенным, если оно равно сумме всех своих делителей, включая 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.