Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/10: Рейтинг темы: голосов - 10, средняя оценка - 4.50
SaLoMoN
0 / 0 / 0
Регистрация: 17.11.2011
Сообщений: 91
1

Найти натуральное число из интервала от a до b с максимальной суммой делителей

03.12.2012, 22:49. Просмотров 1898. Ответов 3
Метки нет (Все метки)

Оформите эти 2 задачи в виде GUI приложений. буду очень благодарен ребята помагите пожалуйста

1)Найти натуральное число из интервала от a до b с максимальной суммой делителей.


2)Дано натуральное число n.Выяснить,можно ли представить его в виде произведения
трех последовательных натуральных чисел.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.12.2012, 22:49
Ответы с готовыми решениями:

Найти натуральное число из интервала от a до b с максимальной суммой делителей
Решите эти 2 задачи Delphi в консоле пожалуйста Уважаемые программисты ...

Найти наименьшее натуральное число, не представимое суммой никаких элементов
Задан одномерный массив целых чисел. Найти наименьшее натуральное число, не...

Найти строку с максимальной суммой модулей элементов
Среди строк заданной целочисленной матрицы,содержащих только нечетные...

В матрице найти столбец с максимальной суммой элементов
Здравствуйтей. 1.Дана символьная строка, заменить все символы 'какой-то...

Найти строку с максимальной суммой модулей элементов
Помогите пожалуйста решить!!!!!! Среди строк заданной целочисленной...

3
AzgardC
7 / 7 / 1
Регистрация: 18.10.2012
Сообщений: 85
03.12.2012, 23:05 2
2)
Delphi
1
2
3
4
5
6
7
8
9
10
11
var
n,i:integer;
begin
for i:=1 to n do
begin
if ((i*(i+1)*(i+2))=n) then
begin
Label1.Caption:='Можно!=)';
break;
end else Label1.Caption:='Нельзя!=)';
end;
вроде так, второй надо обдумать немного)
1
SaLoMoN
0 / 0 / 0
Регистрация: 17.11.2011
Сообщений: 91
03.12.2012, 23:10  [ТС] 3
Спасибо большое выручил хоть так)

Добавлено через 37 секунд
Народ кто сможет не затруднит помогите с первой задачей еще пожалуйста)
0
AzgardC
7 / 7 / 1
Регистрация: 18.10.2012
Сообщений: 85
03.12.2012, 23:19 4
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
max,i,j,k,a,b,z:integer;
begin
k:=0;
max:=0;
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
for i:=a to b do
begin
for j:=1 to i do
if (i mod j)=0 then 
k:=k+1;
if k>max then 
begin
max:=k;
z:=i;
end;
end;
Label1,Caption:=inttostr(z);
end;
а вот и первый, примерно)))
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.12.2012, 23:19

Найти номер строки матрицы с максимальной суммой элементов
Помогите написать программу на Delphi. Дана квадратная целочисленная матрица...

Дано действительное число а, и натуральное число n. Найти частичную сумму ряда
1/a + 1/a^2 + 1/a^4 +... 1/(a^(2)^n)

Найти число с максимальной дробной частью
Помогите пожалуйста! Задали задачку (дословно с листка): Массив вещественных...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru