Cod sursa(job #29197)
| Utilizator | Data | 8 martie 2007 19:08:37 | |
|---|---|---|---|
| Problema | Pascal | Scor | 10 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.43 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[j]>10) v[j]=4; 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;
}