Cod sursa(job #313196)

Utilizator m3rikPaul Urziceanu m3rik Data 8 mai 2009 10:34:35
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include<fstream.h>

int main()
{
	ifstream fin("pairs.in");
	ofstream fout("pairs.out");
	
	long n,i,j,v[10000],tmp,a,b,cont=0;
	
	fin>>n;
	for(i=0;i<n;i++)
		fin>>v[i];
	
	for(i=0;i<n;i++)
	for(j=i+1;j<n;j++)
	{
		a=v[i];
		b=v[j];
	while(b!=0)
	{
		tmp=a%b;
		a=b;
		b=tmp;
	}
	if(a==1) cont++;
	}
	fout<<cont;
}