Cod sursa(job #284289)

Utilizator CiurelVictorCiurel Victor CiurelVictor Data 21 martie 2009 16:41:59
Problema Fractii Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.61 kb
#include<stdio.h>
long nr[20];
int main()
{
	long n,i,a,b,j,aux;
	int ok;
	FILE *f;
	FILE *g;
	f=fopen("fractii.in","r");
	g=fopen("fractii.out","w");
	fscanf(f,"%ld",&n);
	nr[1]=n;
	for(i=2;i<=n;i++)
	{
		for(j=1;j<=n;j++)
		{
			a=i;
			b=j;
			while(b)
			{
				aux=a%b;
				a=b;
				b=aux;
			}
			if(a==1)
				nr[1]++;
		}
		for(j=1;j<=20;j++)
		{
			nr[j+1]=nr[j+1]+nr[j]/10;
			nr[j]=nr[j]%10;
		}
	}
	ok=0;
	for(i=20;i>=1;i--)
	{
		if(ok)
			fprintf(g,"%ld",nr[i]);
		else
			if(nr[i])
			{
				fprintf(g,"%ld",nr[i]);
				ok=1;
			}
	}
	fclose(f);
	fclose(g);
	return 0;
}