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

@кот67 · Регистрация: 22.12.2015

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

Циклы. В диапазоне [M, N] найти число с максимальной суммой делителей

@ZX Spectrum-128 · 23.12.2015, 17:30

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

@vint-81 · 23.12.2015, 17:42

как вариант

Pascal

var n,m,i,x:integer;
    sd,max:longint;
function sumdel(a:integer):longint;
var sum:longint;
    i,sq:integer;
begin
    sum:=0;
    sq:=trunc(sqrt(a));
    for i:=1 to sq - 1 do 
     begin
      if a mod i = 0 then sum:=sum+i+a div i;
     end;
    if a mod sq = 0 
     then
      if a div sq = sq then sum:=sum+sq
                       else sum:=sum+sq+a div sq;
    sumdel:=sum
end;
begin
 repeat
  write('0<m<=n: ');readln(m,n)
 until (0<m)and(m<=n); 
 max:=0;
 for i:=m to n do 
  begin
   sd:=sumdel(i);
   if sd>max then begin max:=sd;x:=i end
  end;
 writeln('число с максимальной суммой делителей: ',x) 
end.

@кот67 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 5
		1
	Найти число с максимальной суммой делителей 23.12.2015, 17:18. Показов 2206. Ответов 2 Метки нет (Все метки) Циклы. В диапазоне [M, N] найти число с максимальной суммой делителей 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	23.12.2015, 17:30	2
	Найти натуральное число с максимальной суммой делителей 0

	23.12.2015, 17:42

Опции темы

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

Решение