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

@светланак · Регистрация: 12.06.2012

Студворк — интернет-сервис помощи студентам

Найти натуральное число в диапазоне от 1 до n с максимальной суммой делителей.

@Das Gespenst · 12.06.2012, 23:10

Вот:

Pascal

program z;
uses crt;
var i,s,j,n,max:integer;
a:array [1..1000] of integer;
begin
     clrscr;
     writeln('Введите n');
     readln(n);
     for i:=1 to n do
         begin
              s:=0;
              for j:=1 to n do
                  if i mod j=0
                     then
                         s:=s+j;
              a[i]:=s;
         end;
     max:=a[1];
     for i:=1 to n do
         if a[i]>max
            then
                begin
                       j:=i;
                       max:=a[i];
                end;
     writeln('Число в диапазоне 1..',n,' с наибольшей суммой делителей - ',j);
     readln;
end.

@светланак 0 / 0 / 0 Регистрация: 12.06.2012 Сообщений: 14
		1
	Найти натуральное число с максимальной суммой делителей 12.06.2012, 21:42. Показов 11567. Ответов 1 Метки нет (Все метки) Найти натуральное число в диапазоне от 1 до n с максимальной суммой делителей. 0

	12.06.2012, 23:10

Опции темы

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

Решение