Cod sursa(job #559769)

Utilizator silidragosSilion Dragos silidragos Data 18 martie 2011 01:34:52
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.4 kb
#include<iostream.h>
#include<fstream.h>
int prim(int i, int j)
{int aux;
while(j!=0)
{aux=i%j;
i=j;
j=aux;
}
if(i==1)
	return 1;
else return 0;
}

int main()
{int a,i,j,k=0,z=0,i1,j1,aux;
ifstream f("fractii.in",ios::in);
ofstream g("fractii.out",ios::out);
f>>a;
for(i=1;i<=a;i++)
	for(j=1;j<=a;j++)
{if(i!=j)
if(prim(i,j)==1)
	z++;}
z++;
g<<z;
f.close();
g.close();
return 0;
}