Cod sursa(job #1604468)

Utilizator farmerjackandrei hodisan farmerjack Data 18 februarie 2016 12:29:40
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
#include <fstream>
using namespace std;

ifstream fin("fractii.in");
ofstream fout("fractii.out");

int main()
{
	int p,q,n,q1,p1,nr,i;
	for(i=1;i<=4;i++)
	{
		fin>>n;
		p=1;
		q=1;
		nr=0;
		for(p=1;p<=n;p++)
		{
			for(q=1;q<=n;q++)
				{
					q1=q;
					p1=p;
					while(p1!=q1)
						 {
							if(q1>p1)
								q1=q1-p1;
							else
								p1=p1-q1;
				}
				if(q1==1)
					nr=nr+1;
				}
		}
		fout<<nr<<endl;
	}
	return 0;
}