Задача Пакаль (множества)

[Siroga35]

Имеется множество, содержащее натуральные числа из некоторого диапазона. Сформировать два множества, первое из которых содержит все простые числа из данного множества, а второе — все составные.
ПЛЗ если не влом помогите.

[Jean-Esther]

Я думаю, стоит сначала написать функцию, определяющую все простые числа диапазона. Тут есть два варианта:
• Решето Эратосфена. Удобно, красиво, быстро обрабатывает большие по объему интервалы , лежащие около начала. Недостаток: неоптимален для маленьких интервалов, лежащих далеко от начала.
• Функция определения простоты числа исходя из определения. Тут все наоборот.
Приведу второй вариант (по памяти)

function IsPrime(x:integer):boolean;
var i,lim:integer;
begin
if x=2 then IsPrime:=true else
if x mod 2=0 then IsPrime:=false else
begin
    i:=3;
    lim:=round(sqrt(x));
    while (i<=lim)and(x mod i <> 0) do i:=i+2;
    IsPrime:=(i>lim);
end;
end;

И все задача сводится к поочередному перебору всех чисел (для второго варианта) или вообще к правильному выделению диапазона для решета Эратосфена.

procedure SetUp(const low,high:integer; var prime,notprime:SSet);
begin
      prime:=[]; notprime:=[];
      for k:=low to high do
          if IsPrime(k) then include([k],prime) else include([k],notprime);
end;

Ну а граници диапазона, как я понял, определить не проблема.

[Siroga35]

А другие варианты возможные?

[Siroga35]

Ми процедури і функции ще не учили

[alex_fcsm]

const n=100;
type MySet=set of 1..n;
var i,j,k:integer;
    s,s1:MySet;
    f:boolean;
    
begin
s:=[];s1:=[];
 for i:=1 to n do
  begin
  f:=true;
  k:=round(sqrt(i));
   for j:=2 to k do
    if i mod j=0 then f:=false;
   if f then s:=s+[i]
      else s1:=s1+[i];
  end;
  for i:=1 to n do
  if i in s then write(i,' ');
  writeln;
    for i:=1 to n do
  if i in s1 then write(i,' ');
end.