Cod sursa(job #96780)

Utilizator IrnukIrina Grosu Irnuk Data 3 noiembrie 2007 13:21:51
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.69 kb

#include <fstream.h>
long  a[100][100],i,j,d,ok,contor=0;
long n;
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++;

	}
			
}
int 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;
}