Cod sursa(job #29192)

Utilizator s120489Martonos Stefan s120489 Data 8 martie 2007 19:02:03
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
# include <fstream.h>
int  main()
{unsigned long n,k,j,poz=0; int d,v[10]; for(k=1;k<=7;k++) v[k]=0;
ifstream fin("pascal.in");
fin>>n>>d;  fin.close();
for(k=1;k<=n/2+1;k++)
 { for (j=2;j<=6;j++)
 if(((n-k+1)/k)%j==0) {v[j]++; if(v[2]>1) v[4]=1; if(v[2]>=1 && v[3]>=1) v[6]=1;}
    if(v[d]>=1) poz=k;k=n/2+2;}
 ofstream fout("pascal.out");
  if(poz!=0) fout<<(n+1)-2*poz;else fout<<0; fout.close();
return 0;
}