Cod sursa(job #283140)

Utilizator yotherockerPuia Tudor yotherocker Data 18 martie 2009 19:51:23
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
#include<fstream.h>

long cmmdc(long a,long b)
{
	long r;
	do
	{
		r=a%b;
		a=b;
		b=r;
	}while(r);
	return a;
}

main()
{
	ifstream In("fractii.in");
	ofstream Out("fractii.out");
	long n,fractii=0,i,j,ok;

	In>>n;
	In.close();

	for(i=1;i<=n;i++)
	{
	  ok=0;
	  for(j=1;j<=n;j++)
	  {
	     if(i==j) {ok=1;j++;}
	     if(cmmdc(i,j)==1) fractii++;
	     if(ok) j++;
	  }
	}

	Out<<fractii<<'\n';

	Out.close();
	return 0;
}