Cod sursa(job #644691)

Utilizator Marin7ygsepoywepoj Marin7 Data 7 decembrie 2011 14:43:28
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.37 kb
#include <fstream>
using namespace std;
ifstream f("pairs.in");
ofstream g("pairs.out");
int prime(int a,int b)
{
	while (a!=b)
		if (a>b)
			a-=b;
		else
			b-=a;
	return a;
}
int main()
{
	int n,a[100],x,y,i,j,ct=0;
	f>>n;
	for (i=0;i<n;i++)
		f>>a[i];
	
	for (i=0;i<n-1;i++)
		for (j=i;j<n;j++)
			if (prime(a[i],a[j])==1)
				ct++;

	g<<ct;
}