Pagini recente » Statistici Popa Maria Catalina (Popa_Maria_Catalina_321CC) | Cod sursa (job #1419708) | Cod sursa (job #2332485) | Cod sursa (job #549872) | Cod sursa (job #117950)
Cod sursa(job #117950)
#include <stdio.h>
int main()
{
long int n,i,j,m=0,k,l;
FILE* w,*r;
r=fopen("fractii.in","r");
fscanf(r,"%ld",&n);
for (i=1;i<=n;i++)
{
k=i;
m += i;
for (j=2;j<=k;j++)
{
l=k%j;
if (l==0)
{
m -= k/j;
while ((k%j)==0)
k=k/j;
}
}
}
fclose(r);
w=fopen("fractii.out","w");
fprintf(w,"%ld",2*m-1);
fclose(w);
return 0;
}