Cod sursa(job #229148)

Utilizator raptorvTamas Vlad raptorv Data 9 decembrie 2008 15:35:05
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.7 kb
//============================================================================
// Name        : Pairs.cpp
// Author      : Vlad Tamas
// Version     :
// Copyright   : 2008
// Description : Hello World in C++, Ansi-style
//============================================================================

#include <fstream>
#include <iostream>

using namespace std;

int main()
{
	int n,a[100000];
	ifstream f("pairs.in");
	ofstream g("pairs.out");
	f>>n;

	for(int i=1;i<=n;i++)
	{
		f>>a[i];
	}
	int k=0;

	for(int i=1;i<n;i++)
		for(int j=i+1;j<=n;j++)
		{
			int x=a[i],y=a[j];
			while(x!=y)
			{
				if(x>=y)
					x=x-y;
				if(x<y)
					y=y-x;
			}

			if(x==1)
				k++;
		}

	g<<k;
	f.close();
	g.close();
}