Показать сообщение отдельно
  #2  
Старый 03.02.2011, 06:37
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Только перебором.
Тебе надо:
1. функцию, проверяющую число "на простоту".
2. Идем внешнем циклом I от 1-го элемента, до последнего.
3. внутренним циклом J от I до последнего. Во внутреннем цикле суммируем и на каждом шаге проверяем число на простоту. Если число простое, то еще одним циклом от I до J выводим последовательность.
4. Все.
Ответить с цитированием