Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal]Циклические алгоритмы

Автор: Psychedelic 12.1.2007, 13:52

Найти натуральное число от 1 до 1000 с максимальной суммой делителей

Автор: Sunvas 12.1.2007, 14:29

По идее так:

Код


var i,j,s1,summ,ind:integer;
begin
summ:=0;
ind:=0;
for i:=1 to 1000 do
begin
s1:=0;
      for j:=1 to i do
          if i mod j = 0 then s1:=s1+j;
      if s1>summ then
         begin
          summ:=s1;
          ind:=i;
         end;
end;
writeln(ind, ' ', summ);
readln;
end.

Автор: Psychedelic 13.1.2007, 13:45

Благодарю