Cod sursa(job #96769)

Utilizator IrnukIrina Grosu Irnuk Data 3 noiembrie 2007 12:48:06
Problema Fractii Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.69 kb

#include <fstream.h>
unsigned long  a[10000][10000],n,i,j,d,ok,contor=0;

void diagonala()
{
	for(i=2;i<=n;i++)
		for(j=2;j<=n;j++)
			a[i][i]=1;
}
void divizori()
{
	for(i=2;i<=n;i++)
		for(j=2;j<=n;j++)
			if(i%j==0 || j%i==0) a[i][j]=1;
}
void rest()
{	
	for(i=3;i<=n;i++)
	{
		d=2;
		while(d<i)
		if(i%d==0)
		{
			for(j=2;j<=n;j++)
				if(a[d][j]==1) a[i][j]=1;
			d++;
		}
		else d++;

	}
			
}
main()
{
	ifstream fin("fractii.in");
	ofstream fout("fractii.out");

	fin>>n;

	diagonala();
	divizori();
	rest();
	for(i=1;i<=n;i++)
	{
		for(j=1;j<=n;j++)
			if(a[i][j]==0) contor++;
	}
	fout<<contor<<'\n';
	fin.close();
	fout.close();

	return 0;
}