|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
03.05.2011, 20:27 | #1 |
Пользователь
Регистрация: 04.04.2011
Сообщений: 76
|
в интервале (1000 .. 9999) найти все простые числа (Delphi)
Доброго времени суток!ув.форумчане помогите пожалуста с решением задачи по информатике,язык программирования -borland Delphi 7 !условия задачи следующие:в интервале (1000 .. 9999) найти все простые числа,каждое из которых имеет такое свойство,что сумма первой и второй цифр записи этого числа равняеться сумме третей и четвёртой цыфры. Если можно-выложите полный код программы.Заранее спасибо!
|
03.05.2011, 20:36 | #2 |
Регистрация: 11.04.2011
Сообщений: 9
|
сначала - обычное решето эратосфена, а затем с оставшимися числами делаешь следующее: можно перевести в строку и элементарно проверить свойство,что сумма первой и второй цифр записи этого числа равняеться сумме третей и четвёртой цыфры.
|
03.05.2011, 20:41 | #3 |
Пользователь
Регистрация: 04.04.2011
Сообщений: 76
|
А можна подробнее -кодом-потомучто если чесно-я не знаю как ето организовать!
|
03.05.2011, 20:52 | #4 |
Форумчанин
Регистрация: 01.09.2009
Сообщений: 151
|
Вот и мне интересно, как работает решето для массива, который начинается не с 2-ки? Потому что мне кажется, что оставшиеся после отсеивания числа можно проверить на простоту только полным перебором. Имеется ввиду общий случай, когда сам массив не очень большой, но он начинается с очень большого числа, и соответственно нету списка простых чисел которые меньше начального элемента массива.
|
03.05.2011, 20:59 | #5 |
Регистрация: 11.04.2011
Сообщений: 9
|
обычно. решето на произвольном отрезке ничем не отличается фактически от решета на отрезке начиная с 2
|
03.05.2011, 21:10 | #6 |
Пользователь
Регистрация: 04.04.2011
Сообщений: 76
|
пожалуста-киньте хотяб примерный код-вобще ничего не пойму!!!
|
03.05.2011, 21:34 | #7 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Код:
|
04.05.2011, 12:50 | #8 | |
Форумчанин
Регистрация: 01.09.2009
Сообщений: 151
|
Цитата:
Для решета начинающегося с 1000 простыми будут 1000, 1001, 1003, 1005 ... , что является неправильным. В этом случае работать будет только метод предложенный Serge_Bliznykov - ну или по крайней мере какой-нибудь другой переборный метод. |
|
04.05.2011, 20:47 | #9 | |
Пользователь
Регистрация: 04.04.2011
Сообщений: 76
|
Цитата:
Код:
Последний раз редактировалось Dima170792; 04.05.2011 в 22:44. |
|
04.05.2011, 21:13 | #10 | ||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Цитата:
правильный вариант решения в пост #7 если Вы его не поняли - я не виноват... |
||
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
найти определённые простые числа в интервале [Паскаль] | Юкоша | Помощь студентам | 4 | 24.12.2010 15:57 |
Найти все простые числа в заданном диапазоне | Nikita++ | Помощь студентам | 8 | 20.10.2010 20:05 |
найти из указанного диапазона все простые числа | мария2507 | Microsoft Office Excel | 11 | 03.04.2010 17:38 |
Pascal В интервале целых чисел найти все числа кратные 7 | NewBi | Помощь студентам | 5 | 19.03.2010 19:55 |