Question

Ajutor la 7, va roog

Answer 1

function numarprim(a:integer):integer;
var k:integer;
begin

 for k:=1 to a do
  if a mod k = 0 then numarprim+=1;

end;

function numereprime(a,b:integer):integer;
var k:integer;
begin

 while b<>0 do
  begin 
  k := b;
  b := a mod b;
  a := k;
  end;
   
 if a=1 then numereprime:=1 else
  numereprime:=2;
   
end;

var i,n,j,s:integer;

begin
 
 read(n);
 writeln;
 
 for i:=1 to n do
  begin
  s:=0;
  for j:=1 to i-1 do 
   if (numereprime(i,j)=1) and (numarprim(j)=2) then
    inc(s);
  if s=1 then write(i,' ')
  end;

end.