Cod sursa(job #19492)

Utilizator FlorianFlorian Marcu Florian Data 19 februarie 2007 17:57:09
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include<stdio.h>
int main()
{long n,i,a,b,j,k,r;
FILE *f=fopen("fractii.in","r");
FILE *g=fopen("fractii.out","w");
fscanf(f,"%ld",&n);
k=n;
for (i=2; i<=n; i++)
		{k++;
		for (j=2; j<=n; j++)
			{a=i; b=j; r=a%b; while (r!=0){a=b; b=r; r=a%b;}
								if (b==1) k++;}
		}
fprintf(g,"%ld",k);
 fclose(f);
 fclose(g);
 return 0;  }