Cod sursa(job #45372)

Utilizator RobytzzaIonescu Robert Marius Robytzza Data 1 aprilie 2007 14:07:23
Problema Divizori Primi Scor 5
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.64 kb
#include<fstream.h>
int main(){
ifstream fin("divprim.in");
ofstream fout("divprim.out");
long T;
fin>>T;
for (unsigned long w=0;w<T;w++){
long  N,K,i=1,a[5000];
short   ok=1;
long z;
      fin>>N>>K;
      a[0]=2;
      for (long  h=3;h<N;h+=2){
	   ok=1;
	for (z=3;z<h;z+=2)
	   if (h%z==0){
	       ok=0;
	       break;}
   if (ok==1)
       a[i++]=z;    }
ok=1;
long nr=0;
unsigned long s=0;
short ko=1;
for (long y=N;y>1;y--){
       ok=1;
       nr=0;
    for (long j=0;j<i;j++)
	if (y%a[j]==0)
	    nr++;
    if (nr==K){
	ko=0;
	s=y;
       break;} }
fout<<s<<"\n";
}
fin.close();
fout.close();
return 0;
}