Cod sursa(job #560294)

Utilizator adyskZaharescu Adrian adysk Data 18 martie 2011 13:44:00
Problema Fractii Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.81 kb
#include<fstream.h>
ifstream fin("fractii.in");
ofstream fout("fractii.out");
int n,i,l,j,s=1,k,t[1000000][10];
int divi(int x,int y)
{
	int r;
    while(y!=0)
	{
		r=x%y;
		x=y;
		y=r;
	}
    if(x==1)
        s++;
    return 0;
}
int per()
{
	t[1][0]=1;
	for(i=2;i<=n;i++)
		if(t[i][0]==0)
		for(j=i;j<=n;j+=i)
		{
			for(k=0;t[j][k]!=0;k++);
			t[j][k]=i;
		}
		/*j=0;
		for(i=2;i<=n;i++)
			if(t[i]==0)
				p[j++]=i;
			max=j;*/
    for(i=1;i<n;i++)
        for(j=i+1;j<=n;j++)
		{
			for(l=0;t[j][l]!=0;l++)
			{
			for(k=0;t[i][k]!=0;k++)
			if(t[i][k]==t[j][l])
				break;
			if(t[i][k]==t[j][l])
				break;
			}
			if(t[i][k]==0&&t[j][l]==0)
				s+=2;
		}
    return 0;
}
int main()
{
	
    fin>>n;
	//s=n;
    per();
    fout<<s;
    fin.close();
    fout.close();
}