Cod sursa(job #791256)

Utilizator paul_danutDandelion paul_danut Data 23 septembrie 2012 15:30:22
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include <fstream>
using namespace std;
ifstream f("fractii.in");
ofstream g("fractii.out");
int verific(int p,int q)
{int nr=0,i=2;
while(i<=7&&nr==0)
	if(p%i==0&&q%i==0)
		nr++;
	else
		i++;
return nr;}
long int n;
int nr,p,q;
int main()
{f>>n;
nr=1;
for(p=1;p<=n;p++)
	for(q=1;q<=n;q++)
		if(p!=q&&verific(p,q)==0)
			   nr++;			
g<<nr<<' ';
f.close();
g.close();}