Cod sursa(job #124809)

Utilizator ProcopliucProcopliuc Adrian Procopliuc Data 19 ianuarie 2008 22:02:24
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
# include <stdio.h>
int cmmdc (long x,long y)
{
while (x!=y)
if (x>y)
x=x-y;
else
y=y-x;
return x;
}
long i,j,n,k;
int main ()
{
freopen ("fractii.in","r",stdin);
freopen ("fractii.out","w",stdout);
scanf ("%ld",&n);
for (i=1;i<=n;i++)
for (j=1;j<=n;j++)
if (cmmdc(i,j)==1)
k++;
printf ("%ld",k);
return 0;
}