Cod sursa(job #133782)

Utilizator Anamaria20Cotirlea Anamaria Anamaria20 Data 9 februarie 2008 18:47:44
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include <iostream.h>
#include <fstream.h>

ifstream fp_in;
ofstream fp_out;

long int n;
long int p,q;
long int cat;
long int i,min,bec;

main()
{
	fp_in.open("fractii.in",ios::in);
	fp_in>>n;
	fp_in.close();


	for (p=1;p<=n;p++)
		for (q=1;q<=n;q++)
		{

			min=(p>q?q:p);

			bec=1;
			for (i=2;i<=min;i++)
				if (q%i==0&&p%i==0)
				{
					bec=0;
					break;
				}


		   if (bec==1)
			 cat++;
		}

		fp_out.open("freactii.out",ios::out);
		fp_out<<cat;
		fp_out.close();


//	f=fopen ("fractii.out","w");
//	fprintf (f,"%ld",cat);
//	fclose (f);
}