Fie un șir de numere naturale nenule a[1], a[2], …, a[n] și un număr natural k.

Cerința

Să se determine un grup de k numere din șir care au proprietatea că cel mai mare divizor comun al lor este maxim. Dacă există mai multe astfel de grupuri, se cere acel grup pentru care suma elementelor este maximă.

Date de intrare

Fișierul de intrare cmmdc1.in conține pe prima numerele naturale n k separate prin spațiu. Pe linia a doua se găsesc numerele naturale a[1], a[2], …, a[n] separate prin câte un spațiu.

Date de ieșire

Fișierul de ieșire cmmdc1.out va conține pe prima linie un număr natural reprezentând cel mai mare divizor comun a exact k numere din șir, maxim posibil. Pe linia a doua, separate prin câte un spațiu și ordonate descrescător, se află cele k numere din șir care dau cel mai mare divizor comun maxim.

Restricții și precizări

1 ≤ n ≤ 1 000 000
2 ≤ k ≤ 100 000
k ≤ n
1 ≤ a[i] ≤ 1 000 000, i=1..n
Valorile din șir se pot repeta.

Exemplu

cmmdc1.in

6 3
6 9 8 10 15 3

cmmdc1.out

3
15 9 6

Explicație

Cel mai mare divizor comun care se poate obține dintr-un grup de 3 numere este 3, iar cele 3 numere care dau suma maximă, ordonate descrescător, sunt 15 9 6.

Cum e corect?

cout < "As la info"; cout << "As la info"; cout >> "As la info";

Felicitări! Poți mai mult?

Avem sute de probleme pentru tine, fiecare cu explicații ușor de înțeles.

Greșit, dar nu-i bai!

Antrenează-te cu sutele de probleme pe care ți le-am pregătit. Îți explicăm fiecare problemă în parte.

Rezolvare

Iată rezolvarea de 100 de puncte pentru problema Cmmdc1:

const fin='cmmdc1.in';fout='cmmdc1.out';
var f:text;
    a:array[1..1000000]of longint;
    n,k,i,j,max,nr:longint;
begin
  assign(f,fin);reset(f);
  readln(f,n,k);
  for i:=1 to n do
  begin
    read(f,j);
    inc(a[j]);
    if max<j then max:=j;
  end;
  close(f);
  for i:=max downto 1 do
  begin
    nr:=0;
    j:=max div i *i;
    while j>=i do begin
      inc(nr,a[j]);
      dec(j,i)
    end;
    if nr>=k then break
  end;
  assign(f,fout);rewrite(f);
  writeln(f,i);
  j:=max div i *i;
  while k>0 do begin
      while a[j]=0 do dec(j,i);
      write(f,j,' ');dec(k);dec(a[j])
  end;
  close(f);

end.

Atenție

Enunțurile afișate pe această pagină aparțin exclusiv site-ului PbInfo. Astfel, pentru ștergerea conținutului, puteți să ne contactați la adresa Adresa de email .

Rezolvarea problemei #1673 Cmmdc1

Pe această pagină găsești rezolvarea de 100 de puncte pentru problema #1673 Cmmdc1 de pe PbInfo.ro. Atenție: nu încurajăm copiatul codului! Totuși, credem cu tărie că analizarea unei soluții corecte este o metodă foarte ușoară de a învăța informatică, astfel că oferim sursele pentru peste 1500 de probleme de pe platforma PbInfo.ro.

Pentru rezolvări PbInfo de la peste 1500 de probleme, vă invităm să intrați pe site-ul nostru!

Rezolvare completă PbInfo #1673 Cmmdc1