Cod sursa(job #2634363)

Utilizator And1104Andreea Popescu And1104 Data 10 iulie 2020 18:30:08
Problema Fractii Scor 10
Compilator c-64 Status done
Runda Arhiva de probleme Marime 0.45 kb
#include<stdio.h>

int prime(int a, int b) {
	int r, ok;
	ok = 0;
	r = a % b;
	while (r != 0) {
		a = b;
		b = r;
		r = a % b;
	}
	if (b == 1)
		ok = 1;
	return ok;
}

int main() {
	FILE *fin = fopen("fractii.in", "r");
	FILE *fout = fopen("fractii.out", "w");
	int n, i, j, count;
	fscanf(fin, "%d", &n);
	count = 0;
	for(i = 1; i <= n; i++) {
		for (j = 1; j <= n; j++) {
				if (prime(i,j) == 1)
					count++;
		}
	}
	fprintf(fout, "%d", count);
	return 0;
}