Cod sursa(job #58564)
Utilizator | Data | 6 mai 2007 13:53:21 | |
---|---|---|---|
Problema | Pascal | Scor | 40 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.43 kb |
#include<stdio.h>
int main()
{long p,i,j,ii,ij,jj,d,sol=0;
FILE*f=fopen("pascal.in","r");
FILE*g=fopen("pascal.out","w");
fscanf(f,"%ld %ld",&i,&d);
//i!/(i-j)!*j!
if (d==2||d==3||d==5)
{
p=d;
ii=0;
while(i/p!=0) {ii+=i/p; p*=d;}
for(j=1;j<=i;j++)
{
jj=0; p=d;
while (j/p!=0){jj+=(j/p); p*=d;}
ij=0; p=d;
while((i-j)/p!=0) {ij+=(i-j)/p; p*=d;}
if ((ii-ij-jj>0)) sol++;
}}
fprintf(g,"%ld",sol);
}