Cod sursa(job #223210)

Utilizator codruta.pocolcodruta pocol codruta.pocol Data 27 noiembrie 2008 17:10:35
Problema Divizori Primi Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.42 kb
var n,t,d:longint;
    v:array[1..1000000] of integer;
    i,j:longint;
begin
  assign(input,'divprim.in');reset(input);
  assign(output,'divprim.out');rewrite(output);
  for i:=2 to 500000 do
    if v[i]=0 then
      for j:=1 to 1000000 div i do inc(v[i*j]);
  readln(t);
  for i:=1 to t do begin
    readln(n,d);
    while (n>0)and(v[n]<>d) do dec(n);
    writeln(n);
  end;
  close(input); close(output);
end.