Pagini recente » Cod sursa (job #1076749) | Cod sursa (job #2511145) | Cod sursa (job #902746) | Statistici Papaya Albastru (Pavelutz) | Cod sursa (job #272431)
Cod sursa(job #272431)
#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;
}