1 / 1 / 0
Регистрация: 21.10.2012
Сообщений: 35
1

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

22.10.2012, 15:36. Показов 2543. Ответов 3
Метки нет (Все метки)

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

Добавлено через 10 минут
помогите пожалуйста
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2012, 15:36
Ответы с готовыми решениями:

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

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

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

Работа с циклическими конструкциями.
Пожалуйста, помогите написать две задачки (Pascal Free)

3
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,493
Записей в блоге: 1
22.10.2012, 15:38 2
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
28
29
Var i,j,s,min,imax,k:integer;
Begin
    writeln('-----------------');
    writeln('Число | ','Делители ');
    writeln('-----------------');
    min:=10000;
    For i:=280 to 300 do
    Begin
      s:=1+i;
      k:=2;
      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);
         inc(k);
       End;
      if (k<=min)and(i>imax) then
      Begin
        min:=k;
        imax:=i;
      End;
      write(i:4);
      writeln;
      writeln('Сумма делителей: ',s);  
    End;
    writeln('Max число с min кол-ом делителей: ',imax);
End.
2
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
03.12.2012, 02:20 3
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
uses crt;
const l='--------------------------------------------------------------------------';
      s='| Число |                     Делители                         |  Сумма  |';
var i,j,kd,sum,minsum,min: integer;
    ns: boolean;
 
begin
writeln(l);
writeln(s);
writeln(l);
for i:=300 to 320 do
    begin
    kd:=0; ns:=false; sum:=0;
    write('|',i:5,'  | ');
    for j:=2 to i div 2 do
        if i mod j=0 then
           begin
           inc(kd); inc(sum,j);
           if kd mod 13=0 then
              begin
              writeln('|         | ':16);
              write('|       | ');
              ns:=true;
              end;
           write(j:3,',');
           end;
    if ns then for j:=1 to 12-(kd mod 13) do write('    ')
       else for j:=1 to 13-(kd mod 13) do write('    ');
    writeln('|',sum:6,'|':4);
    if i=300 then
       begin
       min:=300;
       minsum:=sum;
       end else
       if (kd>0) and (sum<minsum) then
          begin
          min:=i;
          minsum:=sum;
          end;
    end;
write(l);
readln;
writeln('Минимальная сумма делителей (',minsum,') у числа ',min);
end.
1
1 / 1 / 0
Регистрация: 21.10.2012
Сообщений: 35
03.12.2012, 02:24  [ТС] 4
Спасибоо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.12.2012, 02:24
Помогаю со студенческими работами здесь

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

Найти количество делителей каждого из целых чисел от 120 до 140
Кто может помогите написать программу в паскале: 1)Найти количество делителей каждого из целых...

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

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


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

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

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