Cod sursa(job #508191)
| Utilizator | Data | 7 decembrie 2010 19:22:32 | |
|---|---|---|---|
| Problema | Pascal | Scor | 0 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.39 kb |
#include <iostream.h>
#include <fstream.h>
//#include <string.h>
#include <math.h>
int main(int argc, char* argv[])
{
long i, j, cnt=0, d, k;
float f;
ifstream fin("pascal.in");
fin>>i;
fin>>d;
for(j=0; j<=i; j++){
f = 1;
for(k = j; k<=i; k++){
f = f * k / (k-j);
}
long k = f;
if(k%d == 0) cnt++;
}
ofstream fout("pascal.out");
fout<<cnt;
return 0;
}