Cod sursa(job #5112)

Utilizator razvanbrBratfalean Razvan razvanbr Data 10 ianuarie 2007 18:25:32
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include<stdio.h>
int r,d,contor,c,a1,a2,a3,s;
int div(int n,int d);

int main()
{
	freopen("pascal.in","r",stdin);
    freopen("pascal.out","w",stdout);
	scanf("%d%d",&r,&d);
	contor=0;
	for(c=0;c<=r;c++)
	{
		a1=div(r,d);
		a2=div(r-c,d);
		a3=div(c,d);
		if(a1>a2+a3)
		contor++;
	}
	printf("%d",contor);
	return 0;
}
int div(int n,int d)
{
	s=0;
	while(n)
	{
		s+=n/d;
		n/=d;
	}
	return s;
}