Программа на делфи.

[Chikiton]

В общем суть программы: в массиве есть два совершенных числа, найти их произведение. (Совершенные числа- числа, сумма всех делителей(кроме самого числа) которого равна самому числу - 6;28).
Массив я задал вручную, и вот процедурка по нахождению заветного произведения
Procedure PrSov;
begin
for i:=1 to 10 do begin
for n:=1 to masA[i] do if (masA[i] mod n) = 0 then s:=s+n;
n:=n+1;
if s=masA[i] then p:=p*masA[i];
end;
writeln('Proizv=',p:4:0);


В выоде всегда получаю 1. В сети не нашел чего-то типичного.

[Аватар]

s перед вложенным циклом обнулить нужно. n:=n+1; - какой-то хитрый ход, не понятный мне. Перед основным циклом в p единицу засунуть, а то умножаешь фиг знамо на что. Вот еще - проверку делимости на самого себя тоже не нужно

[Chikiton]

Сообщение от Аватар

s перед вложенным циклом обнулить нужно. n:=n+1; - какой-то хитрый ход, не понятный мне. Перед основным циклом в p единицу засунуть, а то умножаешь фиг знамо на что. Вот еще - проверку делимости на самого себя тоже не нужно

Спасибо, все четко и по делу! Заработало