Cod sursa(job #660605)

Utilizator evelynaCazaceanu Evelina Florentina evelyna Data 13 ianuarie 2012 11:23:52
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
#include<fstream>
using namespace std;
int main()
{int n,j,p,l,d,r,a,b;
ifstream f("fractii.in");
ofstream h("fractii.out");
f>>n;
a=0;
p=2*n-1;
for(j=2;j<=n;j++)
for(l=2;l<=n;l++)
	{a=j;b=l;
	do
	{r=a%b;
	a=b;
	b=r;}
	while(r!=0);
if(a==1)
	p=p+1;}
	h<<p;
f.close();
h.close();
return 0;}