Cod sursa(job #138397)

Utilizator nighthawkghenea alexandru madalin nighthawk Data 18 februarie 2008 16:14:15
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include<fstream.h>
int main()
{ifstream f("fractii.in");
 ofstream g("fractii.out");
 long a,i,s,j,k,sw;
 f>>a;
 s=2*a-1;
 for(i=2;i<=a;i++)
	{for(j=2;j<=a;j++)
		if(i%j!=0)
			if(!(i%2==0&&j%2==0))
				{sw=1;
				for(k=2;k<=j;k++)
					if(j%k==0&&i%k==0)
						{sw=0;
						}
				if(sw)s++;
				}
	}
 g<<s;
 g.close();
return 0;}