Cod sursa(job #20392)

Utilizator vali_miValy Mihai vali_mi Data 21 februarie 2007 13:40:15
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
#include<stdio.h>
FILE *f1,*f2;
int main()
{long int n,a,b,nr=1,x,y;
f1=fopen("fractii.in","r");
fscanf(f1,"%li",&n);
fclose(f1);

for(a=1;a<=n-1;a++)
for(b=a+1;b<=n;b++)
{x=a;
 y=b;
while(x!=y)
if(x>y) x-=y;
else y-=x;
if(x==1) nr+=2;}
f2=fopen("fractii.out","w");
fprintf(f2,"%li",nr);
fclose(f2);
return 0;
}