Cod sursa(job #24619)
Utilizator | Data | 3 martie 2007 01:44:50 | |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.53 kb |
#include<iostream.h>
#include<fstream.h>
main()
{
unsigned long i,j,n,m;
long long s,s2,s3,d,k,delta,ij;
fstream f("pascal.in",ios::in);
fstream g("pascal.out",ios::out);
f>>i;
f>>d;
j=0;
delta=0;
do{
k=1;s=1;
ij=i-j;
do{
s*=k;
k++;
}while(k<=i);
k=1;s2=1;
do{
s2*=k;
k++;
}while(k<=ij);
k=1;s3=1;
do{
s3*=k;
k++;
}while(k<=j);
s2*=s3;
s/=s2;
if(s%d==0)delta++;
j++;
}while(j<=i);
g<<delta;
return 0;
}