Cod sursa(job #143552)

Utilizator xtremespeedzeal xtreme Data 26 februarie 2008 17:35:16
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.4 kb
#include<fstream.h>
#include<iostream.h>
main()
{
fstream f("fractii.in",ios::in),g("fractii.out",ios::out);
int n,k=0,p,q,a,b;
f>>n;
if(n>=1)
	k+=2*n-1;
for(p=2;p<=n;p++)
	{
	for(q=2;q<=n;q++)
		{
		if(((p%q)!=0)&&((q%p)!=0))
			{
			a=p;b=q;
			while(a!=b)
				{
				if(a>b)
					a=a-b;
				else
					b=b-a;
				}
			if(a==1)
				k++;
			}
		}
	}
g<<k;
f.close();g.close();
}