Cod sursa(job #568837)

Utilizator allexx2200Atanasiu Alexandru-Marian allexx2200 Data 31 martie 2011 18:55:06
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include<iostream.h>
#include<fstream.h>
int main()
{
	fstream f("pascal.in", ios::in);
	fstream g("pascal.out", ios::out);
	long int R,x,y,i,j;
	int D;
	f>>R>>D;
	i=1; x=R; j=0;
	if(R%2==1)
		y=R/2+1;
	else
		y=R/2;
	do
	{
		if(x%D==0)
			j++;
		i++;
		x=x*(R-i+1)/i;
	}while(i<=y-1);
	if(R%2==0)
		j=j*2;
	else
		if(x%D==0)
			j=j*2-1;
		else
			j=j*2;
	g<<j+1;
}