Question

Cerința
Se citește un număr natural n cu cel mult 16 cifre. Fie q numărul de cifre ale numărului n. Prin eliminarea unei singure cifre din scrierea numărului n se obține un șir de q numere. Să se afișeze în ordine crescătoare, numerele nenule din acest șir care sunt prime cu numărul n.

Date de intrare
Fișierul de intrare numere16.in conține pe prima linie numărul n.

Date de ieșire
Fișierul de ieșire numere16.out va conține pe prima linie separate printr-un spațiu, numerele care respectă proprietatea din cerință.

Restricții și precizări
2 ≤ q ≤ 16
dacă nu avem niciun număr care respectă cerința afișăm mesajul NU EXISTA

Exemplu
numere16.in

342477
numere16.out

32477 34247 34247 34277 34477
Explicație
Numerele 32477 34247 34247 34277 34477 sunt afișate în ordine crescătoare și sunt prime cu numărul 342477

Answer 1

function elimina(c,n,q,s:integer):integer;
var f,d:integer;
begin

 f:=1;
 
 while n<>0 do
  begin
  inc(d);
  if s-d+1<>q then
   begin
   elimina+=(n mod 10)*f;
   f:=f*10;
   end;
  n:=n div 10;
  end;
    
end;

var

 a:array of integer;
 n,n1,f,min,max:integer;
 q,k,i,c,s:byte;
 t:text;
 
begin

 assign(t,'numere16.in');
 reset(t);
 
 read(t,n);
 
 close(t);
 
 n1:=n;
 
 while n1<>0 do
  begin
  n1:=n1 div 10;
  inc(q);
  end;
  
 setlength(a,q);
 
 s:=q;
 n1:=n;
 
 while n1<>0 do
  begin
  c:=n1 mod 10;
  n1:=n1 div 10;
  for f:=n downto 1 do
   begin
   if (n mod f = 0) and (elimina(c,n,q,s) mod f = 0) then
    begin
    if f=1 then 
     begin
     a[i]:=elimina(c,n,q,s);
     inc(i);
     end;
    end;
    if (n mod f = 0) and (elimina(c,n,q,s) mod f = 0) then break;
   end;
  dec(q);
  end;

 assign(t,'numere16.out');
 rewrite(t);
 
 if i=0 then 
  begin
  write(t,'NU EXISTA');
  close(t);
  exit;
  end;
 
 max:=a[0];
 min:=a[0];
 
 for k:=0 to i-1 do
  begin
  if a[k]>max then max:=a[k];
  if a[k]<min then min:=a[k];
  end;
 
 for min:=min to max do
  for k:=0 to i-1 do
   if min=a[k] then write(t,a[k],' ');
   
 close(t);

end.