На заданном интервале найти числа, имеющие два различных натуральных делителя, исключая 1 и само число

@Александрэ · Регистрация: 22.10.2019

Студворк — интернет-сервис помощи студентам

Здравствуйте, помогите пожалуйста с задачей.
Напишите программу, которая ищет среди целых чисел, принадлежащих числовому отрезку [174457; 174505], числа, имеющие ровно два различных натуральных делителя, не считая единицы и самого числа. Для каждого найденного числа запишите эти два делителя в таблицу на экране с новой строки в порядке возрастания произведения этих двух делителей. Делители в строке таблицы также должны следовать в порядке возрастания.

@eaa · 10.09.2020, 09:22

Pascal
1
2
3
4
5
6
7
begin
  Range(174457, 174505)
  .Select(x -> (x, Range(2, x - 1).Where(i -> x mod i = 0)))
  .Where(x -> x[1].Count = 2)
  .OrderBy(x -> x[1].Product)
  .PrintLines
end.

@Александрэ · 10.09.2020, 09:30 **[ТС]**

Можете, пожалуйста, циклами решить

@mr-Crocodile · 10.09.2020, 09:47

eaa, это просто бомба!

@Sun Serega · 10.09.2020, 10:34

В оследнюю строку лучше добавить форматную строку.

Pascal
1
.PrintLines(x->$'Число {x[0]} делится на: {x[1].JoinToString}')

Стандартный _ObjectToString, конечно, мощный, но форматированный вывод всегда будет красивее.

Сообщение от Александрэ

циклами решить

У вас в задании так написано, или вы всего лишь боитесь что так не примут?

@Александрэ · 10.09.2020, 10:51 **[ТС]**

Sun Serega, не примут, мы такого не проходили.

@Sun Serega · 10.09.2020, 10:56

Я не так давно из школы выпустился, у меня всегда принимали то что ещё не проходили. Достаточно было в общих чертах объяснить какая часть программы делает что, особенно если преподаватель сам не понимает и не может опровергнуть. Так что не придумывайте.

@eaa · 10.09.2020, 10:59

Это задание нового компьютерного ЕГЭ по информатике?

@P_247 · 16.09.2020, 18:31

Да.

@JuriiMW · 17.09.2020, 05:37

eaa, в вашем решении Range делителей слишком большой.
На таком небольшом отрезке [174457; 174505] не очень заметно…
Но если взять отрезок [170000; 174505], то сразу становится заметная задержка!

Можно рассчитывать только [√x] делителей:

Pascal
1
2
3
4
5
##
Range(174457, 174505)
  .Select(x -> (x, Range(2, Trunc(Sqrt(x))).Where(i -> x mod i = 0)))
  .Where(x -> x[1].Count = 1)
  .PrintLines(x->$'{x[0]} = {x[1].First} x {x[0] div x[1].First}');

@Alexandra1234A · 10.10.2020, 12:53

НАПишите задачу на С++ очень нужно!!!

@JuriiMW · 10.10.2020, 12:57

Alexandra1234A, это раздел паскаля!

@Puporev · 10.10.2020, 13:06

У нее есть тема в разделе С++, а это на авось.

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

@Александрэ 0 / 0 / 0 Регистрация: 22.10.2019 Сообщений: 8

	На заданном интервале найти числа, имеющие два различных натуральных делителя, исключая 1 и само число 10.09.2020, 08:59. Показов 4168. Ответов 12 Метки pascal abc net (Все метки) Здравствуйте, помогите пожалуйста с задачей. Напишите программу, которая ищет среди целых чисел, принадлежащих числовому отрезку [174457; 174505], числа, имеющие ровно два различных натуральных делителя, не считая единицы и самого числа. Для каждого найденного числа запишите эти два делителя в таблицу на экране с новой строки в порядке возрастания произведения этих двух делителей. Делители в строке таблицы также должны следовать в порядке возрастания. 0

@Александрэ 0 / 0 / 0 Регистрация: 22.10.2019 Сообщений: 8
	10.09.2020, 09:30 [ТС]
	Можете, пожалуйста, циклами решить 0

@mr-Crocodile 3053 / 1672 / 657 Регистрация: 19.03.2019 Сообщений: 5,381
	10.09.2020, 09:47
	eaa, это просто бомба! 0

@Александрэ 0 / 0 / 0 Регистрация: 22.10.2019 Сообщений: 8
	10.09.2020, 10:51 [ТС]
	Sun Serega, не примут, мы такого не проходили. 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	10.09.2020, 10:56
	Я не так давно из школы выпустился, у меня всегда принимали то что ещё не проходили. Достаточно было в общих чертах объяснить какая часть программы делает что, особенно если преподаватель сам не понимает и не может опровергнуть. Так что не придумывайте. 0

@eaa Status 418 4584 / 2350 / 601 Регистрация: 26.11.2017 Сообщений: 5,262 Записей в блоге: 3
	10.09.2020, 10:59
	Это задание нового компьютерного ЕГЭ по информатике? 0

@P_247 0 / 0 / 0 Регистрация: 04.01.2019 Сообщений: 9
	16.09.2020, 18:31
	Да. 0

@Alexandra1234A 0 / 0 / 0 Регистрация: 10.10.2020 Сообщений: 28
	10.10.2020, 12:53
	НАПишите задачу на С++ очень нужно!!! 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	10.10.2020, 12:57
	Alexandra1234A, это раздел паскаля! 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	10.10.2020, 13:06
	У нее есть тема в разделе С++, а это на авось. 0

На заданном интервале найти числа, имеющие два различных натуральных делителя, исключая 1 и само число

Решение