Cod sursa(job #272431)

Utilizator yane2806Marius Balaban yane2806 Data 7 martie 2009 00:51:36
Problema Fractii Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.66 kb
#include<stdio.h>
FILE *f,*g;
int main()
{long n,p,q,nr,i;
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;
                   for(i=2;i<=p;i++)
                   if (q%i==0&&p%i==0)
                          ok=0;
                    for(i=2;i<=q;i++)
                        if(q%i==0&&p%i==0)
                           ok=0;

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