Cod sursa(job #402394)

Utilizator andreea1coolBobu Andreea andreea1cool Data 23 februarie 2010 20:35:09
Problema Pascal Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.57 kb
#include<stdio.h>
int main()
{
    freopen("pascal.in","r",stdin);
    freopen("pascal.out","w",stdout);
    int r,j,n,k1=0,k2=0,k3=0,d,p,c=0,i,q,s,t;
    scanf("%d%d",&r,&d);
    for(i=1;i<=r;i++){
        q=i;
        while(q%d==0){
			k1++;
			q=q/d;
		}
	}
	for(j=0;j<=r;j++){
		p=r-j;
		for(i=1;i<=p;i++){
            s=i;
			while(s%d==0){
				k2++;
				s=s/d;
			}
		}
		for(i=1;i<=j;i++){
            t=i;
			while(t%d==0){
				k3++;
				t=t/d;
			}
		}
	if(k1-k2-k3>0){
		c++;
		
	}
	k2=0;
	k3=0;
	
	
}
printf("%d",c);
return 0;
}