Cod sursa(job #115300)

Utilizator sorinalupuLupu Sorina Elena sorinalupu Data 16 decembrie 2007 12:06:35
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include<stdio.h>
#include<iostream.h>
#include<math.h>
int main()
{
	long i,j,n,c=0,a,b,r;
	FILE *in,*out;
	in=fopen("fractii.in","rt");
	out=fopen("fractii.out","wt");
	fscanf(in,"%ld",&n);
        c=0;
	for (i=1;i<=n;i=i+1)
		{
			for (j=1;j<=n;j=j+1)
			{
				a=i;
				b=j;
				while (a%b!=0)
				
						{
							r=a%b;
							a=b;
							b=r;
						}
					if (b==1) c=c+1;
			}
		}
	fprintf(out,"%ld",c);
}