задача по паскалю, очень срочно нужна помощь
дано множество чисел. Составить программу, которая бы выводила в одно множество все простые числа из данного диапазона, а в другое - все составные.
Дело в том, что в интернете много ответов, но все они через "function prost"
а задача стоит сделать ее без "function" вообще
прошу, помогите, очень нужно :(

  • а в чем проблема бери код из функции и вставляй его в основную программу
  • вы некорректно формулируете задачу. в математике есть вполне ясное определение простого числа.
    у вас же похоже немного не то, а просто число состоящее из одной цифры числа составленные из нескольких? тогда переводите в string, и берите length>1 = составные, остальные простые))
  • var i,j,a,b:integer; c,d:boolean;
    begin
    write('a b ? '); readln(a,b);
    for d:=true downto false do
    begin
    if d then writeln('prime numbers: ') else writeln('composite numbers: ');
    for i:=a to b do
    begin
    c:=true;
    for j:=2 to trunc(sqrt(i+1)) do if i mod j=0 then begin c:=false; break end;
    if d then if c and(i<>1)then write(i:4)else else if not c then write(i:4)
    end;
    writeln
    end;
    readln
    end.

Вас заинтересует