Cod sursa(job #382547)

Utilizator DevilShadowJunc Raul Cosmin DevilShadow Data 13 ianuarie 2010 21:36:12
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.39 kb
#include<iostream.h>
#include<fstream.h>
int main()
{
	int n,i,j,k,r,a,b;
	fstream f1("fractii.in",ios::in);
	fstream f2("fractii.out",ios::out);
	f1>>n;
	k=0;
	for(i=1;i!=n+1;i++)
	{
		for(j=1;j!=n+1;j++)
		{
			a=i;
			b=j;
			while(b!=0)
			{
				r=a%b;
				a=b;
				b=r;
			}
			if(a==1)
			{
				k++;
			}
		}
	}
	f2<<k;
	f1.close();
	f2.close();
	return 0;
}