Pagini recente » Cod sursa (job #1006953) | Cod sursa (job #2187680) | Cod sursa (job #804771) | Diferente pentru info-oltenia-2018/individual intre reviziile 4 si 5 | Cod sursa (job #7679)
Cod sursa(job #7679)
#include <stdio.h>
#include <fstream.h>
#include <math.h>
FILE *pf;
int nr;
int ireduc(long a,long b);
int ireduc(long a,long b)
{long i;int t=1;int max;
max=(a>=b)?a:b;
for(i=2;i<=sqrt(max);i++)
if((b%i==0)&&(a%i==0)) return 0;
return t;
}
long n;
main(void)
{pf=fopen("fractii.in","r");
long i,j;
fscanf(pf,"%ld",&n);
nr=n;
for(i=2;i<n+1;i++)
for (j=1;j<n+1;j++)
if (i!=j) if(ireduc(i,j)) nr ++;
pf=fopen("fractii.out","w");
fprintf(pf,"%d",nr);
fclose(pf);
return 0;
}