Найти сумму делителей каждого из целых чисел

@kventi5 · Регистрация: 21.10.2012

Найти сумму делителей каждого из целых чисел от 480 до 500. Вывести результат в виде таблицы (с переносом по строкам, если все делители не вмещаются в одной строке)Число Делители Сум.дел.
99 3, 9, 11, 33 56
100 2, 4, 5, 10,
20, 25, 50 116
101 ... ...
Определить наибольшее число из данного интервала, у которого сумма делителей максимальна.

Добавлено через 5 минут
помогите пожлуйста срочно

@CodeR · 22.10.2012, 15:13

Pascal

Var i,j,s,max,imax:integer;
Begin
    writeln('-----------------');
    writeln('Число | ','Делители ');
    writeln('-----------------');
    max:=0;
    For i:=480 to 500 do
    Begin
      s:=1+i;
      write(i:4,'|':1,1:4);
      For j:=2 to i div 2 do
       if i mod j = 0 then
       Begin
         inc(s,j);
         write(j:4);
       End;
      if s>max then
      Begin
        max:=s;
        imax:=i;
      End;
      write(i:4);
      writeln;
      writeln('Сумма делителей: ',s);  
    End;
    writeln('Число с max суммой делителей: ',imax);
End.

Только вывод не очень...

@kventi5 · 22.10.2012, 15:18 **[ТС]**

спасибо

@kventi5 1 / 1 / 0 Регистрация: 21.10.2012 Сообщений: 35
		1
	Найти сумму делителей каждого из целых чисел 22.10.2012, 15:01. Показов 2856. Ответов 2 Метки нет (Все метки) Найти сумму делителей каждого из целых чисел от 480 до 500. Вывести результат в виде таблицы (с переносом по строкам, если все делители не вмещаются в одной строке)Число Делители Сум.дел. 99 3, 9, 11, 33 56 100 2, 4, 5, 10, 20, 25, 50 116 101 ... ... Определить наибольшее число из данного интервала, у которого сумма делителей максимальна. Добавлено через 5 минут помогите пожлуйста срочно __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@kventi5 1 / 1 / 0 Регистрация: 21.10.2012 Сообщений: 35
	22.10.2012, 15:18 [ТС]	3
	спасибо 0

Опции темы

Найти сумму делителей каждого из целых чисел

Решение