1 задача

[Siroga35]

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

[capta1n]

язык реализации?

[Siroga35]

Турбо Паскаль

[capta1n]

program zadacha1;
const
 n = 10;
var
 a,b1,b2 : array [1..n] of word;
 n1,n2 : word;
 flag : boolean;
 i,k : byte;
 j1,j2 : byte;
begin
  writeln ('Vvedite diapozon');
  write ('Start: '); readln (n1);
  write ('Finish: '); readln (n2);
  randomize;
  for i:=1 to n do a[i]:=random(n2-n1+1)+n1;
  for i:=1 to n do write (a[i],'|');
  writeln;
  writeln;
  for i:=1 to n do
  begin
    flag:=true;
    for k:=2 to round(sqrt(a[i])) do
     if a[i] mod k=0 then flag:=false;
    if flag then
    begin
      inc(j1);
      b1[j1]:=a[i]
    end
    else
    begin
      inc(j2);
      b2[j2]:=a[i]
    end
  end;
  writeln ('Prostie: ');
  for i:=1 to j1 do write (b1[i],'|');
  writeln;
  writeln ('Sostavnie: ');
  for i:=1 to j2 do write (b2[i],'|');
  readln
end.

[Siroga35]

сПАСИбо виручив репутация +2