Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Tanya31323
25.09.2020 23:30 •
Информатика
Найти на отрезке (n; m) натуральное число, имеющие наибольшее количество делителей
Показать ответ
Ответ:
смайлкот2
01.10.2020 11:59
А на каком языке сделать?
program test;
var
n, m: integer;
max: integer;
count: integer;
number: integer;
i: integer;
function GetDividersCount(number: integer): integer;
var
limit: integer;
count: integer;
i: integer;
begin
limit := number div 2;
count := 0;
for i := 1 to limit do
if number mod i = 0 then
count := count + 1;
result := count;
end;
begin
write('Enter range: ');
read(n, m);
max := 0;
for i := n to m do
begin
count := GetDividersCount(i);
if max < count then
begin
max := count;
number := i;
end;
end;
writeln('Result: ', number);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
bogdan39
08.01.2023 20:20
В каком формате по умолчанию создаются документы Microsoft Office Word 2003?...
аружан225
24.11.2021 06:21
Кроссворд «Окна» 1.Рамка, ограничивающая окно с четырех сторон. 2.Строка, содержащая имя приложения или документа, называется строка… 3. Как называется кнопка с крестиком....
Simuran999
04.03.2021 11:33
решить уравнение по информатике. Файл ворд с заданием прикреплен Задание 3. Логические основы ЭВМПостановка задачи:Получить кратчайшую форму записи логической функции...
МашаКотик2004
04.11.2021 15:42
Определить тип величин: 1) Площадь фигуры 2) Количество мест в самолете 3) Марка автомобиля....
Margoha80029071
12.02.2020 15:50
1) Сколько информации несет лотерея 1 из 1282) Информационный объем текста, подготовленного с компьютерного редактора, равен 3,5 Кб. Сколько символов содержит этот текст?3)...
таисия85
07.07.2021 17:44
Используя цикл repeat, напишите программу получения в порядке убывания всех делителей данного числа....
Lika1639
13.06.2022 04:07
Опребелить тип переменных y, z, d если x целое y=5xz=(5+x)/4d=(5+x)/4Помагите Помагите...
сдаддае
18.01.2023 23:48
1) В каком редакторе (растровом или векторном) при масштабировании качество изображения не меняется? 2)Количество цветов в палитре 16 777 216. Найдите глубину цвета....
87373747373873
15.02.2021 02:45
Даны окружности с радиусами 4 см и 3 см. Если d = 6 см, то имеют ли общие точки данные окружности? Если – да, то сколько точек? ...
nurbibisaidova3
15.02.2021 02:45
Эскалатор метро поднимается со скоростью 2 м/с. Человек, находящийся на нем, движется вниз по эскалатору со скоростью 3 м/с относительно эскалатора. Чему равна в системе...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program test;
var
n, m: integer;
max: integer;
count: integer;
number: integer;
i: integer;
function GetDividersCount(number: integer): integer;
var
limit: integer;
count: integer;
i: integer;
begin
limit := number div 2;
count := 0;
for i := 1 to limit do
if number mod i = 0 then
count := count + 1;
result := count;
end;
begin
write('Enter range: ');
read(n, m);
max := 0;
for i := n to m do
begin
count := GetDividersCount(i);
if max < count then
begin
max := count;
number := i;
end;
end;
writeln('Result: ', number);
end.