Cod sursa(job #2428013)

Utilizator CostiVVoicu Costi CostiV Data 3 iunie 2019 14:39:58
Problema Fractii Scor 10
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.37 kb
#include <fstream>
using namespace std;

int main() {
	ifstream fin("fractii.in");
	ofstream fout("fractii.out");

	int N, P , Q ,P1, Q1 ,r, nr=0;
	fin >> N;
	for (P = 1; P <= N; ++P) {
		for (Q = 1; Q <= N; ++Q) {
			P1 = P; Q1 = Q;
			while (Q1 != 0) {
				r = P1 % Q1;
				P1 = Q1;
				Q1 = r;
			}
			if (P1 == 1)
				++nr;
		}
	}
	fout << nr;
	return 0;
}