Pagini recente » Cod sursa (job #2444050) | Cod sursa (job #1995349) | Statistici Dumitru Sebastian (dumis) | Cod sursa (job #1659102) | Cod sursa (job #58406)
Cod sursa(job #58406)
#include<stdio.h>
int main()
{long i,ok,j,r,d,p,k,fi,fj,fdif,sol=0;
FILE*f=fopen("pascal.in","r");
FILE*g=fopen("pascal.out","w");
fscanf(f,"%ld %ld",&i,&d);
if(d==2||d==3||d==5)
{
p=d; r=0;
while(i/p!=0){r++;p*=d;}
for(j=1;j<=i;j++)
{
fdif=0;
p=d;
while((i-j)/p!=0) {fdif++; p*=d;}
fj=0;
p=d;
while(j/p!=0) {fj++; p*=d;}
ok=1;
if(fdif!=0) ok*=fdif;
if (fj!=0) ok*=fj;
if((r/ok)%d==0){sol++;}} }
fprintf(g,"%ld",sol);}