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

@maks_ · Регистрация: 28.04.2014

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

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

@Puporev · 30.04.2014, 06:54

Красиво написано, только какое число самое большое?

@maks_ · 30.04.2014, 07:12 **[ТС]**

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

@Puporev · 30.04.2014, 07:17

Pascal

var n,i,j,s,mx,imx:integer;
begin
repeat
write('n>0 n=');
readln(n);
until n>0;
mx:=1;
imx:=1;
for i:=1 to n do
 begin
  s:=0;
  for j:=1 to i do
  if i mod j=0 then s:=s+j;
  if s>mx then
   begin
    mx:=s;
    imx:=i
   end;
 end;
writeln('Максимальную сумму делителей имеет число ',imx,' сумма=',mx);
readln
end.

@maks_ 2 / 2 / 2 Регистрация: 28.04.2014 Сообщений: 43
		1
	Найти натуральное число с максимальной суммой делителей 30.04.2014, 06:50. Показов 1497. Ответов 3 Метки нет (Все метки) натуральное число с максимальной суммой делителей 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	30.04.2014, 06:54	2
	Красиво написано, только какое число самое большое? 0

@maks_ 2 / 2 / 2 Регистрация: 28.04.2014 Сообщений: 43
	30.04.2014, 07:12 [ТС]	3
	найти натуральное число от 1 до N с максимальной суммой делителей 0

	30.04.2014, 07:17

Опции темы

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

Решение