Cod sursa(job #27425)

Utilizator conttPop Mircea contt Data 6 martie 2007 14:01:55
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 kb
#include<fstream.h>
#include<math.h>
int main()
{ unsigned long i,j,n,d,nr=0,x;
long double a,b,t;
ifstream f("pascal.in");
f>>n>>d;
f.close();
if(d==1)
{ofstream g("pascal.out"); g<<n+1;g.close();}
/*else
{a=1;
if(a%d==0)
nr=2;
if(n%2==0)
{x=1;nr=nr-1;}
*/
a=n;
x=0; if(n%2==0){nr--; x=1;} //cout<<a<<" ";
for(i=3;i<=(n+1)/2+x;i++)
{b=a*(n-i+1)/i;//   cout<<b<<" ";
t=floor(b/d);
if(b/d==t)   nr+=1;
a=b;}
ofstream g("pascal.out");
g<<nr;
g.close();
return 0;}