Cod sursa(job #559815)

Utilizator adyskZaharescu Adrian adysk Data 18 martie 2011 09:36:51
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include<fstream.h>
ifstream fin("fractii.in");
ofstream fout("fractii.out");
int n,i,j,s=0;
int divi(int x,int y)
{
	int r;
    while(y!=0)
	{
		r=x%y;
		x=y;
		y=r;
	}
    if(x==1)
        s++;
    return 0;
}
int per()
{
    for(i=1;i<=n;i++)
        for(j=1;j<=n;j++)
            divi(i,j);
    return 0;
}
int main()
{
    fin>>n;
    per();
    fout<<s;
    fin.close();
    fout.close();
}