Cod sursa(job #376524)

Utilizator zenith09lucas eugene zenith09 Data 21 decembrie 2009 20:19:54
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
#include<fstream.h>   
int main()   
{ unsigned long i,j,n,a,b,d,nr=0,x;   
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=n+1;   
if(n%2==0)   
{x=1;nr=nr-1;}   
else  
x=0;   
for(i=1;i<=(n+1)/2+x;i++)   
{b=a*(n-i+1)/i;   
if(b%d==0){nr=n-i;  break;}   
a=b;}   
ofstream g("pascal.out");   
g<<nr;   
g.close();   
}   
return 0;}