Нужна Помощь С Делфи

  • Автор темы -
  • Дата начала

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

{$APPTYPE CONSOLE}

uses SysUtils;

var n,i,j,k,s:integer;
begin
write('vvedi n');
readln(n);
k:=0;//пока нет совершенных
for i:=1 to n-1 do //проверяем от 1 до n-1
begin
s:=0;//сумма делителей
for j:=1 to i div 2 do //от 1 до половины числа
if i mod j=0 then s:=s+j;//если делитель, суммируем
if s=i then //если сумма=числу
begin
write(i,' '); //выводим
k:=1;//фиксируем что есть
end;
end;
if k=0 then write('Sovershenyh net!');
readln;
end.