2 / 2 / 0
Регистрация: 06.10.2014
Сообщений: 108
Записей в блоге: 1
1

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного чи

12.11.2014, 11:13. Показов 3946. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного числа Х. Проверку, является ли сумма делителей данного числа больше заданного числа Х, сделать с помощью процедуры пользователя.
Составить программу
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.11.2014, 11:13
Ответы с готовыми решениями:

Дан натуральный отрезок чисел [A,B].Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х.
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых больше заданного...

Дан целочисленный отрезок [А;B]. Вывести из этого отрезка все отрицательные числа.
помогите решить задачу, а то не получается УСЛОВИЕ Дан целочисленный отрезок . Вывести из этого...

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых больше заданного...

Найти те числа данного отрезка, суммы делителей которых больше заданного числа Х
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы делителей которых больше...

1
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,602
Записей в блоге: 1
12.11.2014, 13:55 2
Лучший ответ Сообщение было отмечено Ad1LeT как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Var a,b,i,j,x,s:longint;
Function F(a,b:longint):boolean;
Begin
    if a>b then F:=true else F:=false;
End;
Begin
    write('A = ');readln(a);
    write('B = ');readln(b);
    write('X = ');readln(x);
    For i:=a to b do
    Begin
      s:=1+i;
      For j:=2 to i div 2 do
       if i mod j = 0 then s:=s+j;
      if F(s,x) then write(i,' ');
    End;
    readln;
 End.
0
12.11.2014, 13:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2014, 13:55
Помогаю со студенческими работами здесь

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые являются степенью двойки
Дан натуральный отрезок чисел . Найти те числа этого отрезка, которые являются степенью двойки....

Найти числа отрезка, суммы делителей которых больше заданного числа Х.
Проверьте программу пожалуйста.Если можно сделать программу с помощью дополнительного оператора z...

Дан натуральный отрезок [a,b]. Вывести из этого отрезка все числа кратные 7
Дан натуральный отрезок . Вывести из этого отрезка все числа кратные 7.

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых есть числа нечетные
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых есть числа...


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

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

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