На отрезке [2, n] определить число с максимальной суммой делителей.

@Karla · Регистрация: 10.06.2010

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

@RunLI · 02.10.2010, 14:40

Нилина ты ?

Pascal

var n,sum,tmpsum,k,i:integer;
 
   function sumdel(a:integer):integer;
    var i:integer;
     begin
      result:=0;
      for i:=2 to (a div 2) do
       if a mod i=0 then
        result:=result+i;
     end;
 
   begin
 write('BBEDUTE ');
 readln(n);
 sum:=0;
 k:=2;
 for i:=3 to n do
 begin
   tmpsum:=sumdel(i);
   if (sum<tmpsum) then
   begin
    k:=i;
    sum:=tmpsum;
   end;
 end;
 writeln(k);
 readln;readln;
 end.

@Karla 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 7
		1
	На отрезке [2, n] определить число с максимальной суммой делителей. 11.06.2010, 10:32. Показов 5207. Ответов 1 Метки нет (Все метки) На отрезке [2, n] определить число с максимальной суммой делителей. 0

Опции темы

На отрезке [2, n] определить число с максимальной суммой делителей.

Решение