Cod sursa(job #1592493)

Utilizator wolfyalexDomnaru Alexandru wolfyalex Data 7 februarie 2016 17:58:11
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.51 kb
#include <iostream>
#include <fstream>
using namespace std;

int euclid(int a, int b)
{
	int c;
	while (b) {
		c = a % b;
		a = b;
		b = c;
	}
	return a;
}

int prime(int a, int b)
{
	if (euclid(a, b) == 1)
		return 1;
	else return 0;
}

int main()
{
	ifstream fin("fractii.in");
	ofstream fout("fractii.out");
	int p, q, n, k = 1;
	fin >> n;
	for (p = 1; p <= n; ++p)
		for (q = 1; q <= n; q++)
		{
			if (p == q)
				continue;
			if (prime(p, q))
				k++;
		}
	fout << k;
	return 0;
}