Cod sursa(job #13100)

Utilizator Ady.hAdrian Hada Ady.h Data 5 februarie 2007 18:09:57
Problema Pascal Scor 40
Compilator c Status done
Runda Arhiva de probleme Marime 0.51 kb
#include <stdio.h>

inline int puterea(int x,int d)
{if (x==0) return 0;
if (x%d!=0) return 0;
x/=d;
if (x%d!=0) return 1;
x/=d;
int i;
i=2;
while (x%d==0)
	{i++;
	x/=d;
	}
return i;
}

int main()
{
FILE *pf;
pf=fopen("pascal.in","r");
int r,d;
fscanf(pf,"%d %d",&r,&d);
int i,sus=0,jos=0,numar=0;
for (i=1;i<r;i++)
	{
	jos+=puterea(i,d);
	sus+=puterea(r-i+1,d);
	if (sus-jos>0) numar++;
	//printf("%d %d %d\n",i,sus,jos);
	}
pf=fopen("pascal.out","w");
fprintf(pf,"%d",numar);
return 0;
}