Помогите пожалуйста решить задачи, уже целый день сижу над ними и ничего не получается. Вот эти задачки:
задача1:
Напишите в строчку подряд первые 10 простых чисел - получится шестнадцаретичное число. Теперь вычеркните 10 цифр так, чтобы из оставшихся 6-ти цифр без нарушения порядка их следования образовалась бы наибольшее возможное число. Решить с помощью решета Эратосфена. (нужно написать функцию используя множества).
задача2:
Укажите 1000 идущих подряд натуральных чисел, ни одно из которых не является простым. Написать функцию для определения простых чисел используя решето Эратосфена.
Полная версия: Решето Эратосфена
Цитата(Guest @ 11.03.05 22:05)
Решить с помощью решета Эратосфена. (нужно написать функцию используя множества).
FAQ: Работа с множествами (последняя программа - реализация решета Эратосфена).
Что-то у меня вообще ничего не получается 
.
А можно как нибудь для первой задачки множество простых чисел преобразовать в одномерный массив?
. А можно как нибудь для первой задачки множество простых чисел преобразовать в одномерный массив?
Код
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;
.......
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;
.......
с первой задачкой я немного разобралась, а вот со второй со всем не знаю что делать. Может подскажите как её решить 
...
...
Код
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.
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!
можно этовсё организовать с помощью функции! или что Вам надо?
можно функцию к этой задаче?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.