Cod sursa(job #27392)
Utilizator | Data | 6 martie 2007 13:25:01 | |
---|---|---|---|
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+=1;
if(n%2==1)
{
for(i=3;i<n;i++)
{b=(n-i+1)/i*a;
if(b%r==0) nr+=2;
a=b;
}
}
else
{
for(i=3;i<=n;i++)
{b=(n-i+1)/i*a;
if(b%r==0) nr+=1;
a=b;
}
// b=(n-i+1)/i*a;
// if(b%r==0) nr+=1;
}
g<<nr<<"\n";
return 0;
}