Cod sursa(job #547068)

Utilizator sw_nullSabadac Petru-Gabriel sw_null Data 5 martie 2011 21:09:26
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.4 kb
#include<cstdio>
int e(int i,int n){int c;while(i!=0){c=i;i=n%i;n=c;}return n;}int main(){int n,i,j,h,k,s=0;FILE *f=fopen("fractii.in","r"),*g=fopen("fractii.out","w");fscanf(f,"%d",&n);for(j=1;j<=n;j++)for(i=1;i<=n;i++){if(e(i,j)==1)s++;}fprintf(g,"%d\n",s);for(int h=0;h<n;h++){fscanf(f,"%d",&k);s=0;for(j=1;j<=k;j++)for(i=1;i<=k;i++){if(e(i,j)==1)s++;}fprintf(g,"%d\n",s);}fclose(f);fclose(g);return 0;}