Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
atamanoova
0 / 0 / 0
Регистрация: 24.09.2014
Сообщений: 10
#1

Наибольшее количество делителей - Pascal

18.11.2014, 17:59. Просмотров 721. Ответов 1
Метки нет (Все метки)

На отрезке от а до b найти число, которое имеет наибольшее количество делителей. Надо сделать через function,я, вроде, понимаю как это делать, но не разберусь, а что надо задать в Fuction ? Буду благодарна !
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.11.2014, 17:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Наибольшее количество делителей (Pascal):

Числа из интервала [M, N], имеющие наибольшее количество делителей. - Pascal
Составить программу для нахождения чисел из интервала , имеющих наибольшее количество делителей.

Функция нахождения чисел из интервала [M, N], имеющих наибольшее количество делителей. - Pascal
Составить программу для нахождения чисел из интервала , имеющих наибольшее количество делителей. Помогите, пожалуйста) очень срочно нужна...

Написать функцию, которая из интервала [m, n] находит числа, имеющие наибольшее количество делителей - Pascal
Помогите пожалуйста.написать функцию, которая из интервала находит числа, имеющие наибольшее количество делителей. Заголовок темы...

Циклы. Найти все натуральные числа, имеющие наибольшее количество делителей в заданной последовательности - Pascal
В решённой программе Помогите доразбираться с задачей var c,d,x,s,maxd,i,y,a:integer; Begin maxd:=0; s:=0; Write('Введите...

Количество делителей - Pascal
Подсчитайте количество натуральных делителей числа x (включая 1 и само число; x <= 30000). Примеры Входные данные ...

Количество делителей - Pascal
Поступает последовательность целых положительных чисел, 0_конец последовательности. Определить, в каком из чисел больше всего делителей....

1
Puporev
Модератор
54013 / 41646 / 14728
Регистрация: 18.05.2008
Сообщений: 97,900
18.11.2014, 18:17 #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
uses crt;
function KolDel(n:integer):integer;
var i,k:integer;
begin
if n=1 then k:=1
else
 begin
  k:=2; //1 и само число
  for i:=2 to n div 2 do //остальные делители
  if n mod i=0 then k:=k+1;
 end;
KolDel:=k;
end;
var a,b,i,mx,kmx:integer;
begin
repeat
writeln('Введите диапазон a<b');
readln(a,b);
until a<b;
mx:=a;
for i:=a+1 to b do
if KolDel(i)>mx then mx:=KolDel(i);
write('Максимально число делителей имеет число ',mx,', делителей=',KolDel(mx))
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.11.2014, 18:17
Привет! Вот еще темы с ответами:

Количество делителей длинного числа - Pascal
Помогите пожалуйста : мне нужно посчитать количество делителей длинного числа.

Найти количество и сумму четных делителей - Pascal
Задано натуральное число n. Для всех чисел от 1 до n найти: 1. кол-во делителей 2. сумму четных делителей помогите пожалуйста.

Определить количество делителей заданного натурально значения k - Pascal
Написать программу, которая высчитывает количество делителей заданного натурально значения k.

Найти количество нечетных делителей натурального числа - Pascal
1. Найти количество нечетных делителей натурального числа, меньших K (К вводить с клавиатуры). 2. Найти все натуральные числа x, y и z из...


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

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

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