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
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2012, 15:01
Ответы с готовыми решениями:

Работа с циклическими конструкциями. Найти сумму делителей каждого из целых чисел от 300 до 320
Найти количество делителей каждого из целых чисел от 280 до 300. Вывести результат в виде таблицы...

Найти количество делителей каждого из целых чисел от 480 до 500
Найти количество делителей каждого из целых чисел от 480 до 500. Вывести результат в виде таблицы...

Найти количество делителей каждого из целых чисел от 120 до 140
Найти количество делителей каждого из целых чисел от 120 до 140.

Найти количество делителей каждого из целых чисел от 120 до 140.
Найти количество делителей каждого из целых чисел от 120 до 140.

2
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,493
Записей в блоге: 1
22.10.2012, 15:13 2
Лучший ответ Сообщение было отмечено kventi5 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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.
Только вывод не очень...
1
1 / 1 / 0
Регистрация: 21.10.2012
Сообщений: 35
22.10.2012, 15:18  [ТС] 3
спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.10.2012, 15:18
Помогаю со студенческими работами здесь

Найти сумму делителей каждого из целых чисел
Найти сумму делителей каждого из целых чисел от 290 до 310. Вывести результат в виде следующей...

Найти сумму делителей каждого из целых чисел от 50 до 70
Задача такая: "Найти сумму делителей каждого из целых чисел от 50 до 70" И в этом коде у меня...

Найти количество делителей каждого из целых чисел от 120 до 140
помогите с задачей:Найти количество делителей каждого из целых чисел от 120 до 140.плизззз

Найти количество делителей каждого из целых чисел от 600 до 620
Нужно до завтрашнего дня сдать программы для зачета, помогите пожалуйста, весь день сижу, уже...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru