Cod sursa(job #27357)

Utilizator conttPop Mircea contt Data 6 martie 2007 12:53:08
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include<fstream.h>
int main()
{  long i,j,a,b,r,n,nr=0;
ifstream f("pascal.in");
f>>n>>r;
f.close();
ofstream g("pascal.out");
a=n;if(n%r==0)  nr+=2;
     if(n%2==1)
     {
	 for(i=3;i<=n/2;i++)
	   {b=(n-i+1)/i*a;
	   if(b%r==0)  nr+=2;
	   a=b;
	   }
     }
     else
     {
	  for(i=3;i<=n/2;i++)
	   {b=(n-i+1)/i*a;
	   if(b%r==0)  nr+=2;
	   a=b;
	   }
	   b=(n-i+1)/i*a;
	   if(b%r==0)  nr+=1;
     }
 g<<nr<<"\n";
return 0;
}