Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ivanovaa750
24.09.2022 08:33 •
Информатика
Найти на отрезке (n; m) натуральное число, имеющие наибольшее количество делителей
Показать ответ
Ответ:
leratyurina
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 оценок)
Популярные вопросы: Информатика
Анастасия8383
20.02.2022 18:56
Выберите 3D-модель СОР....
Sezimturatbeko
04.08.2022 20:09
Примеры плохой и хорошей инфографики!...
арманп
13.07.2022 16:20
Паскаль. Решать с применением цикла с постусловием Написать программу паскаль табулирования функции на заданном промежутке с шагом 0.2...
QueenMarceline
26.09.2021 07:40
НЕ СПИСЫВАЙТЕ И НАПИШИТЕ ПОДРОБНО НА ТАБЛИЦЕ Задание 1 ( ). Заполните таблицу, указав, названия программ, которые необходимы людям в приведенных ситуациях....
sanimatronic
11.01.2022 23:11
Мама истратила на покупки 750руб примерно 5000 суммы она истратила на продукты а на остальные деньки купила 3 одинаковых футболки сколько стоит одна футболка...
лера2345
11.01.2022 23:11
Найди значение выражения 20 - а, при а=10 ,7, 8,12, 6...
СабинаЛис
11.01.2022 23:11
Подберите 5 синонимов к слову красивый ....
daniilzagora
11.01.2022 23:11
Человек массой 40кг, бегущий со скоростью 2м/с, догоняет тележку массой 20кг и вскакивает на неё. с какой скоростью они вместе продолжат движение? ,...
navimarik
11.01.2022 23:11
Страница 202 280. нужно записать 1-фонетический: веет1 слова: детство, аккуратно, объявление. плюс, этих слов нужно запись в транскрипцию....
pavelstanowkin
11.01.2022 23:11
Какие черты народной сказки вы можете отметить в сказке о царе салтане ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.