Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 22.10.2019
Сообщений: 8

Дан диапазон от n до j чисел, нужно среди этих чисел найти те, у которых только x делителей

16.09.2020, 18:53. Показов 1336. Ответов 4

Студворк — интернет-сервис помощи студентам
В шапке
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.09.2020, 18:53
Ответы с готовыми решениями:

В последовательности целых чисел найти количество чисел в которых нет 3 и 7 и наименьшее среди этих чисел
Разработать процедуру, которая в последовательности целых чисел находит количество чисел в которых нет 3-ки и 7-ки и наименьшее среди этих...

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

Введите число N, а затем N чисел. Выведите среди этих N чисел только положительные
Вроде всё работает, но препод говорит ,что я не понял условия ( Подскажите в чём ошибка program z1; var N,a,i: integer; ...

4
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
16.09.2020, 20:09
Решние в штанах.
0
0 / 0 / 0
Регистрация: 22.10.2019
Сообщений: 8
16.09.2020, 20:14  [ТС]
Puporev, а по делу?
0
 Аватар для canadamoscow
1179 / 430 / 194
Регистрация: 23.03.2020
Сообщений: 1,021
Записей в блоге: 1
16.09.2020, 21:05
Лучший ответ Сообщение было отмечено Александрэ как решение

Решение

Pascal
1
2
3
4
5
6
7
begin  
 var n := ReadlnInteger('n =');
 var j := ReadlnInteger('j =');
 var x := ReadlnInteger('x =');
 Range(n,j).Select(t -> (t, Range(1, t).Where(i -> t mod i = 0)))
 .Where(t -> t[1].Count = x).Select(t -> t[0]).Print(', ')
end.
1
 Аватар для mr-Crocodile
3053 / 1672 / 657
Регистрация: 19.03.2019
Сообщений: 5,380
17.09.2020, 10:01
canadamoscow, автора темы это решение не устроит.
Это легко понять, если посмотреть его предыдущую тему - На заданном интервале найти числа, имеющие два различных натуральных делителя, исключая 1 и само число

Но, конечно, если он сам не может даже сформулировать, что ему конкретно нужно, то ему долго придётся создавать новые одинаковые темы...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.09.2020, 10:01
Помогаю со студенческими работами здесь

В последовательности чисел найти количество преобразованных по правилу 1 чисел и наименьшее среди этих чисел
Использование нескольких функций Разработать процедуру, которая в последовательности целых чисел находит количество преобразованных по...

Дан файл целых чисел. айти среди этих чисел те, что больше за среднее арифметическое суммы всех элементов
дано файл целых чисел A1,....,An, которые упорядочены за спаданием. Найти среди этих чисел те , что больше за среднее арифметическое...

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного чи
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы делителей которых больше заданного числа Х. Проверку, является ли сумма...

Дан текстовый файл в котором даны 5 чисел разделенные пробелом нужно вычислить сумму и произведение этих чисел
Здравствуйте у меня просьба к вам прошу помочь решить задачу на паскале при помощи строк (Дан текстовый файл в котором даны 5 чисел...

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


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru