IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Решето Эратосфена
Guest
сообщение 11.03.2005 23:05
Сообщение #1


Гость






Помогите пожалуйста решить задачи, уже целый день сижу над ними и ничего не получается. Вот эти задачки:
задача1:
Напишите в строчку подряд первые 10 простых чисел - получится шестнадцаретичное число. Теперь вычеркните 10 цифр так, чтобы из оставшихся 6-ти цифр без нарушения порядка их следования образовалась бы наибольшее возможное число. Решить с помощью решета Эратосфена. (нужно написать функцию используя множества).

задача2:
Укажите 1000 идущих подряд натуральных чисел, ни одно из которых не является простым. Написать функцию для определения простых чисел используя решето Эратосфена.
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Catty
сообщение 13.03.2005 16:34
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 239
Пол: Женский
Реальное имя: Юлия

Репутация: -  3  +


Код
Program Eratosfen;
uses Crt;
const n=255;
var start,fin:set of 2..n;
next:byte;
elem:word;
begin
ClrScr;
start:=[2..n];
fin:=[];
next:=2;
repeat
while not(next in start) do
next:=next+1;
fin:=fin+[next];
elem:=next;
while elem<=n do
begin start:=start-[elem];
elem:=elem+next;
end;
until start=[];
for elem:=2 to n do
if elem in fin then write(elem:4);
writeln;
end.

прога определяет все простые числа в диапазоне от 2 до 255!
можно этовсё организовать с помощью функции! или что Вам надо?
rolleyes.gif


--------------------
For every evil under the sun
There is a remedy or there is none
If there is one - try to find it
If there is none - never mind it!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.07.2025 21:32
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"