Cod sursa(job #1740124)

Utilizator AntrenorAldescu Marian Antrenor Data 10 august 2016 21:31:19
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.61 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;


	while (fscanf(f, "%d", &numere) == 1) {
		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;
}