Решето Эратосфена Опции

[Guest]

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

задача2:
Укажите 1000 идущих подряд натуральных чисел, ни одно из которых не является простым. Написать функцию для определения простых чисел используя решето Эратосфена.

[volvo]

Решить с помощью решета Эратосфена. (нужно написать функцию используя множества).

FAQ: Работа с множествами (последняя программа - реализация решета Эратосфена).

[Guest]

Что-то у меня вообще ничего не получается .
А можно как нибудь для первой задачки множество простых чисел преобразовать в одномерный массив?

[virt]

Код

var a:set of [1..100];
   b:array[1..100]of integer;
   i,cou:integer;
.......
cou:=0;
for i:=1 to 100 do
  if i in a then
     begin
        inc(cou);
        b[cou]:=i;
     end;
.......

[Guest]

с первой задачкой я немного разобралась, а вот со второй со всем не знаю что делать. Может подскажите как её решить ...

[Catty]

Код

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!
можно этовсё организовать с помощью функции! или что Вам надо?

[zoha]

можно функцию к этой задаче?