1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| улЫбастик |
Сообщение
#1
|
![]() Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
А дело, собсно, в чем...
>>На интервале (1000;9999) найти все простые числа, у которых сумма перфой и и второй циф0р равняется сумме третей и четвертой. есть идея, относительно цифр: (число div 1000) и будет первой цифрой; с остальными - по анологии. а как быть с нахождением всех простых чисел? -------------------- Тщетны надежды и усилья,
гранит науки покусать, не те уж зубы, руки, крылья, ну что ж... тогда хоть полизать... ;0) |
![]() ![]() |
| klem4 |
Сообщение
#2
|
|||
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|||
улЫбастик задачко) 20.10.2007 20:31
volvo Искать по форуму (особенно в FAQ-е), там есть функ… 20.10.2007 21:00
улЫбастик volvo, однако, прав.
а что если сделать mod 1000, … 20.10.2007 21:17
Tan Что - то в этом роде ?
uses crt;
var k : integer;
… 20.10.2007 21:47
улЫбастик klem4, учту, исправлюсь))
Tan , вроде да)ришпект… 20.10.2007 23:39
Lapp Нарушения зашкаливают, реакции - ноль.
Тема закрыт… 21.10.2007 3:08![]() ![]() |
|
Текстовая версия | 23.12.2025 3:16 |