Cod sursa(job #58406)

Utilizator FlorianFlorian Marcu Florian Data 5 mai 2007 20:08:30
Problema Pascal Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#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);}