Cod sursa(job #154671)

Utilizator monica_ellyboicu monica monica_elly Data 11 martie 2008 13:04:21
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.36 kb
#include <fstream.h>
	int prime(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;
		}
void main () {
int n,x,k,i,j;
fstream f1("fractii.in",ios::in);
fstream f2("fractii.out",ios::out);
x=1;
f1>>n;
for (i=1;i<=n;i++)
	for (j=1;j<=n;j++)
		if (i!=j&&prime(i,j)==1) x=x+1;
f2<<x;
}