Cod sursa(job #1740126)

Utilizator AntrenorAldescu Marian Antrenor Data 10 august 2016 21:37:24
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.58 kb
#include <stdio.h>

int prim (int 	a, int b) {
	while ( a != b)
	{
		if ( a > b) 
			a = a -b;
		else 
			b = b - a;
	}
	if ( a == 1) 
		return 1;
	else return 0;
}

int main() {

	FILE *f = fopen ("fractii.in", "r");
	FILE *g = fopen ("fractii.out", "w");
	int numere, permutari, k, l;


	fscanf(f, "%d", &numere); 
	permutari = numere * numere;
	for (k = 1; k <= numere; k++) {
		for (l = 1; l <= numere; l++) {
			if (l == k && l != 1) {
				permutari--;
			}
			if ( prim(k, l) == 0 && l != k) {
				permutari--;
			}
		}
	}
	fprintf(g,"%d\n", permutari);
	fclose(f);
	fclose(g);
	return 0;
}