Cod sursa(job #248832)
Utilizator | Data | 26 ianuarie 2009 21:43:20 | |
---|---|---|---|
Problema | Pairs | Scor | 0 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.42 kb |
#include <iostream.h>
#include <fstream.h>
int main()
{ int i,j,m[100],a,b,k=0,r,n;
fstream f("pairs.in",ios::in);
f>>n;
for(i=1;i<n;i++)
{ f>>m[1];
for(j=i+1;j<=n;j++)
{ f>>m[j];
a=m[i];
b=m[j];
while(b!=0)
{ r=a%b;
a=b;
b=r; }
if(a==1)
k++; } }
fstream g("pairs.out",ios::out);
g<<k;
g.close();
f.close();
return 0; }