Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Кейт1
0 / 0 / 0
Регистрация: 04.06.2012
Сообщений: 27
1

Найти в диапазоне от M до N число с наибольшим количеством делителей. Функция: количество делителей заданного числа

05.06.2012, 13:26. Просмотров 1230. Ответов 1
Метки нет (Все метки)

Найти в диапазоне от M до N число с наибольшим количеством делителей. Функция: количество делителей заданного числа

Помогите,пожалуйста умоляю! (
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.06.2012, 13:26
Ответы с готовыми решениями:

Найти все числа в диапазоне от M до N, имеющие ровно k делителей. Функция: количество делителей заданного числа
Найти все числа в диапазоне от M до N, имеющие ровно k делителей. Функция: количество делителей...

Вывод числа с наибольшим количеством делителей
Даны три числа. С помощью функции, определяющей количество делителей натурального числа вывести на...

Найти в диапазоне от M до N число с наибольшим количеством делителей.
Найти в диапазоне от M до N число с наибольшим количеством делителей. Функция: количество делителей...

Найти число с максимальным количеством делителей в заданном диапазоне
Для натуральных чисел из диапазона от A до B вывести число с максимальным количеством делителей....

Найти количество делителей заданного числа
While: 1.Найти количество делителей заданного числа. Решите пожалуйста..

1
CodeR
Фрилансер
3386 / 2787 / 3000
Регистрация: 08.02.2012
Сообщений: 7,029
Записей в блоге: 1
05.06.2012, 17:16 2
Лучший ответ Сообщение было отмечено Кейт1 как решение

Решение

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
Var i,t,n,m,max:integer;
Function Kol(i:integer):integer;
Var k,j:integer;
Begin
    k:=0;
    For j:=1 to i  do
     if i mod j = 0 then inc(k);
    Kol:=k;
End;
Begin
     max:=0;
     Repeat 
     write('Введите N and M: ');readln(n,m);
     Until n<m;
     For i:=n to m do
      Begin
       if Kol(i)>max then
        Begin
         max:=Kol(i);
         t:=i;
        End;
       End;
     writeln('Число с макимальным кол-ом делителей ',t,' всего их ',max);
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.06.2012, 17:16

В диапазоне найти число с максимальной суммой делителей
в диапазоне найти число с максимальной суммой делителей

В диапазоне найти число с максимальной суммой делителей
в диапазоне найти число с максимальной суммой делителей

Найти и вывести первое число в интервале a, b с количеством делителей равным c
Даны три натуральных числа a,b,c. Составить программу,которая находит и выводит первое число в...


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

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

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