Cod sursa(job #402274)

Utilizator andreea1coolBobu Andreea andreea1cool Data 23 februarie 2010 18:41:19
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.92 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;
		}
	}
	if(r%2!=0){
	for(j=0;j<=(r+1)/2;j++){
		p=r-j;
		for(i=1;i<=p;i++){
            s=i;
			while(s%d==0){
				k2++;
				s=s/d;
			}
		}
		k2=k2*2;
		for(i=1;i<=j;i++){
            t=i;
			while(t%d==0){
				k3++;
				t=t/d;
			}
		}
		k3=k3*2;
	if(k1-k2-k3>0){
		c++;
		
	}
	k2=0;
	k3=0;
}
}else{
    for(j=0;j<=r/2+1;j++){
		p=r-j;
		for(i=1;i<=p;i++){
            s=i;
			while(s%d==0){
				k2++;
				s=s/d;
			}
		}
		k2=k2*2-1;
		for(i=1;i<=j;i++){
            t=i;
			while(t%d==0){
				k3++;
				t=t/d;
			}
		}
		k3=k3*2-1;
	if(k1-k2-k3>0){
		c++;
		
	}
	k2=0;
	k3=0;
}    
}      
printf("%d",c);
return 0;
}