Cod sursa(job #383522)

Utilizator vladrolandoVlad Rolando Mihai vladrolando Data 16 ianuarie 2010 19:21:42
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.36 kb
Raporteaza aceasta sursa 
#include <fstream>
using namespace std;
int main ()
{
	int P,Q,N,s,ok,d;
	ifstream fin ("fractii.in");
	ofstream fout("fractii.out");
	fin>>N;
	s=0;
	for (P=1;P<=N;P++)
	{
		for (Q=1;Q<=N;Q++)
		{
			ok=0;
			for (d=2;d<=P;d++)
			{
				if (P%d==0 && Q%d==0)
				{
					ok=1;
					break;
				}
			}
			if (ok==0) s=s+1;
		}
	}
	fout<<s;
}