Cod sursa(job #230187)

Utilizator fecheteFechete Horia-Dan fechete Data 13 decembrie 2008 11:05:04
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include<fstream.h>
#define fin "fractii.in"
#define fout"fractii.out"
int main()
{	int n,p,q,r,k;
	ifstream in(fin);
	in>>n;
	k=0;
	r=p%q;
	for(p=1;p<=n;p++)
		{ for(q=1;q<=n;q++) { while(r!=0)
					{p=q;  q=r;   r=p%q;}
				      if(q==1) k++;
				    }
		}
	ofstream out(fout);
	out<<k<<"\n";
	out.close();
	return 0;
}