Cod sursa(job #402078)

Utilizator andreea1coolBobu Andreea andreea1cool Data 23 februarie 2010 13:54:01
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 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;
    scanf("%d%d",&r,&d);
    for(i=1;i<=r;i++){
        if(i%d==0){
			k1++;
		}
	}
	for(j=0;j<=r;j++){
		p=r-j;
		for(i=1;i<=p;i++){
			if(p%d==0){
				k2++;
			}
		}
		for(i=1;i<=j;i++){
			if(i%d==0){
				k3++;
			}
		}
	if(k1-k2-k3>0){
		c++;
	}
	
}
printf("%d",c);
return 0;
}