Cod sursa(job #300742)

Utilizator lunat1cHobinca Bogdan lunat1c Data 7 aprilie 2009 17:31:05
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include<fstream.h>
int main()
{
	long N,i,P,Q,k=0,j,d,ok;
	ifstream in("fractii.in");
	in>>N;
	ofstream out("fractii.out");
	for(i=1;i<=N;i++)
	{
		P=i;
		for(j=1;j<=N;j++)
		{
			Q=j;
			d=2;
			ok=1;
			while(d<=P && ok==1)
			{
				if(P%d==0 && Q%d==0) ok=0;
				d++;
			}
			if(ok==1) k++;
		}
	}
	out<<k;
      return 0;
}