Cod sursa(job #142441)

Utilizator andreirRoti Andrei andreir Data 24 februarie 2008 17:14:02
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 kb
#include<fstream.h>
int cmmdc(int a,int b)
{
	int k;
		if(b>a)
	{
		a=a-b;
		b=a+b;
		a=b-a;
	}
	for(k=a;k>1;k--)
		if(a%k==0 && b%k==0)
			return 1;
	return 0;
}
int main()
{
	long int n;
	int i,j,c;
	ifstream fin("fractii.in");
	ofstream fout("fractii.out");
	fin>>n;
	c=0;
	for(i=1;i<=n;i++)
		for(j=1;j<=n;j++)
			if(cmmdc(i,j)==0)
				c++;
	fout<<c;
	return 0;
}