Cod sursa(job #272433)

Utilizator yane2806Marius Balaban yane2806 Data 7 martie 2009 00:58:33
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.64 kb
#include<stdio.h>
FILE *f,*g;
int main()
{long n,p,q,nr,i,x;
int ok;
   f=fopen("fractii.in","r");
   g=fopen("fractii.out","w");
   fscanf(f,"%ld",&n);
   nr=0;
   for (p=1;p<=n;p++)
      for(q=1;q<=n;q++)
        { if(p==1||q==1)
            nr++;
            else

            if(p%q!=0 && q%p!=0)
               {ok=1;
                if (p>q)x=q; else x=p;
                   i=2;
                   while(i<=x&& ok==1)
                 {  if (q%i==0&&p%i==0)
                          ok=0;
                     i++;}

                 if(ok!=0)
                 nr++;}
        }
   fprintf(g,"%ld",nr);
return 0;
   }