нахождение полных чисел

[Juhn]

Доброго времени суток !
Срочно нужна помощь.
Задача: Полные числа - это такие числа которые равны всем своим делителям (за исключением самого себя). Пример: 6=3+2+1 (6 делится на 3, 2 и 1). Найти все полные числа от 1 до 10000. Ответы даны: 6, 28, 496, 8128.
Не имею представления как написать такую программу в паскале, что бы она нашла эти числа.
Помогите пожалуйста, буду очень благодарен.
Заранее спасибо !

[Abbatik]

for i:=1 to 10000 do begin
k:=0;
for j:=1 to i-1 do begin
if i mod j=0 then k:=k+j;
end;
if k=i then writeln(i);
end;

[Juhn]

Abbatik спасибо
Я в паскале не особо, можно ещё написать какая строчка должна быть в var перед этим кодом ещё, (там переменные вроде нужны) ?
И можно обьяснить что значит i:=, k:=, и строчка где есть команда mod.
Просто мне нужно не просто программу написать , но ещё и описать кажду строчку, что каждая строчка делает, какие команды выполняет. Очень нужно
А за программу большое спасибо, только строки опиcать осталось

[puporev]

Переставь одно слово в программе, а то работать не будет.

for i:=1 to 10000 do
   begin
    k:=0;
    for j:=1 to i-1 do
       if i mod j=0 then
          begin
            k:=k+j;
          end;
       if k=i then write(i,' ');
     end;

А насчет остального скачай любой учебник по Паскалю и читай. Если ты этого не знаешь, ко и код задачи тебе ни к чему.

[Juhn]

Спасибо поищу что нибудь, только скажите пожалуйста в var что будет integer, что real (i,k,j ?)

[puporev]

integer это целые числа: 1,0,2,5,-9,-3 ..., а real - вещественные - 1,25;0.568... Естественно, что у тебя i,j,k:integer;

[Juhn]

Спасибо.