Cod sursa(job #1324)

Utilizator undogSavu Victor Gabriel undog Data 13 decembrie 2006 12:51:00
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include<stdio.h>

int ggt(long m, long n){

if(m%2==0&&n%2==0)
return 2;

if(n>m){
long aux=m;
m=n;
n=aux;
}

long r;

while(m%n!=0){
r=m%n;
m=n;
n=r;
}

return n;
}



int main()
{
FILE *in,*out;
long n,p,q,i=0;
in=fopen("fractii.in","rt");
out=fopen("fractii.out","w+");
fscanf(in,"%ld",&n);

for(p=1;p<=n;p++){
 for(q=1;q<=n;q++){
  if(ggt(p,q)==1)
   i=i+1;
 }
}

fprintf(out,"%ld",i);

}