Cod sursa(job #6476)

Utilizator pak0sebastian D pak0 Data 19 ianuarie 2007 19:08:18
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.6 kb
#include<stdio.h>

FILE *in,*out;

int n,i,j,f,ok;

int reduc(int i,int j)
{
	int m;
	ok=1;
	if(i>j)
		{
		m=1;
		while(m<=j)
			{
			if(j%m==0&&i%m==0&&m!=1)
				ok=0;
			m++;
			}
		}
	else
		{
		m=1;
		while(m<=i)
			{
			if(i%m==0&&j%m==0&&m!=1)
				ok=0;
                        m++;
			}
		}
return ok;
}

int main()
{
in=fopen("fractii.in","r");
out=fopen("fractii.out","w");
fscanf(in,"%d",&n);
for(i=1;i<=n;i++)
	for(j=1;j<=n;j++)
		{
		if(i!=j||(i==j&&i==1))
			{
			reduc(i,j);
			if(ok==1)
				f++;
			}
		}
fprintf(out,"%d",f);
fcloseall();
return 0;
}