Cod sursa(job #143513)

Utilizator xtremespeedzeal xtreme Data 26 februarie 2008 17:04:32
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
#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;
for(p=1;p<=n;p++)
	{
	for(q=1;q<=n;q++)
		{
		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();
}