Cod sursa(job #13100)
Utilizator | Adrian 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;
}