Cod sursa(job #8808)

Utilizator vladvladvlad vlad vlad vladvlad Data 25 ianuarie 2007 17:25:21
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
#include <stdio.h>
int main(){
long i=1,j=1,n=0,r=0,k=0,a=0,b=0;
FILE *f,*g;
f=fopen("fractii.in","rt");
fscanf(f,"%d",&n);
for (i=1;i<=n;i++){
	for (j=1;j<=n;j++){
	a=i;b=j;
	do
	{
	   r=a%b;
	   a=b;
	   b=r;
	}
	while (b!=0);
	if (a==1) k++;
      }
}
g=fopen("fractii.out","wt");
fprintf(g,"%d",k);
return 0;
}