Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/10: Рейтинг темы: голосов - 10, средняя оценка - 4.60
Павел-----я
0 / 0 / 0
Регистрация: 08.04.2010
Сообщений: 11
1

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

19.05.2010, 23:32. Просмотров 1984. Ответов 2
Метки нет (Все метки)

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

Добавлено через 17 минут
ребята помогите пожалуйста
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.05.2010, 23:32
Ответы с готовыми решениями:

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

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

найти маршрут с наибольшим количеством городов и указать его стоимость
Помогите, пожалуйста, решить вот такую задачку:"Текстовый файл содержит сведения о кольцевых...

Создать матрицу размера nxm. Найти строку с наибольшим количеством отрицательных элементов
Создать матрицу размера nxm. Найти строку с наибольшим количеством отрицательных элементов. Вывести...

Дано n целых чисел. Найти среди них число с наибольшим количеством делителей
Дано n целых чисел.Найти среди них число с наибольшим количеством делителей.

2
Домолаз
нэ
64 / 64 / 42
Регистрация: 08.04.2010
Сообщений: 166
19.05.2010, 23:49 2
Лучший ответ Сообщение было отмечено Павел-----я как решение

Решение

без функции

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
   i,j,m,n,mp,p,t:longint;
begin
   readln(m,n);
   t:=0
   for i:=m to n do
   begin
   mp:=p;
   p:=0;
        for j:=2 TO TRUNC(sqrt(i)) do
            if  i mod j=0 then
            begin
                p:=p+1;
                if p>mp then begin
                   mp:=p;
                   t:=i;
                   end;
            end;
   end;
   write(t);
   readln;
end.
с функцией идей мало.
0
Домолаз
нэ
64 / 64 / 42
Регистрация: 08.04.2010
Сообщений: 166
22.05.2010, 17:19 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
uses crt;
function KolDel(n:longint):integer;
var i,k:integer;
begin
k:=1;
for i:=1 to round(sqrt(n))do
if n mod i=0 then k:=k+1;
KolDel:=k;
end;
var m,n,i:longint;
    mx:integer;
begin
clrscr;
repeat
writeln('Ведите интервал вычислений n>m');
readln(m,n);
until n>m;
mx:=1;
for i:=m to n do
if KolDel(i)>mx then mx:=KolDel(i);
writeln('Максимальное количество делителе=',mx,' имеют:');
for i:=m to n do
if KolDel(i)=mx then write(i,' ');
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2010, 17:19

Найти среди заданных N чисел число с наибольшим количеством делителей (через процедуру и через функцию)
Помогите, нужно решить эту задачу с помощью процедуры и функции, заранее спасибо) Дано N целых...

Распечатать числа в диапазоне от 1 до N у которых число делителей (не равных числу) не менее трех
Распечатать числа в диапазоне от 1 до N у которых число делителей не менее трех(не равных числу)

Текстовые файлы. Найти маршрут с наибольшим количеством городов и указать его стоимость
Задание 1 Текстовый файл содержит сведения о кольцевых туристических маршрутах: список городов и...


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

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

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