Cod sursa(job #29189)
| Utilizator | Data | 8 martie 2007 18:58:59 | |
|---|---|---|---|
| Problema | Pascal | Scor | 10 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.37 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]=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;
}