Cod sursa(job #798683)

Utilizator Andrei1998Andrei Constantinescu Andrei1998 Data 16 octombrie 2012 22:29:55
Problema Pascal Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.67 kb
#include <fstream>

using namespace std;

int d,c[5000005];
int n,i; 

int main()
{
	ifstream fin("pascal.in");
    ofstream fout("pascal.out");
	
	fin>>n;
	fin>>d;
	
	for(i=1;(i<=5000004 && i*d<=5000004);i++)
	{
		if(i%d==0)
		{
			if(c[i]==0)
			{
				c[i]=1;
				c[i*d]=2;
			}
			else
			{
			   c[i*d]=c[i]+1;	
			}
		}
		else
		{
			c[i*d]=1;
		}
	}
	
	int nr_factori=0,raspuns=0/*,numar=1*/;
		for(i=0;(i<n-1);i++)
		{
			nr_factori=nr_factori+c[n-i]-c[i+1];
			if(nr_factori>0)
			{
				raspuns++;
			}
			//numar=numar*(n-i)/(i+1);
			//cout<<numar<<' ';
		}
		fout<<raspuns<<'\n';
	
	fin.close();
	fout.close();
	return 0;
}