Cod sursa(job #5806)

Utilizator msmihaiMihai Mihai msmihai Data 15 ianuarie 2007 09:32:36
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.33 kb
#include <fstream.h>
long int cmmdc(long int a,long int b)
{
long int r;
while(b){r=a%b;a=b;b=r;}
return a;
}

int main()
{
ifstream fin("fractii.in");
ofstream fout("fractii.out");
long n,s=0,i,j;
fin>>n;
for(i=1;i<=n;i++)
for(j=1;j<=n;j++)
if(i==1&&j!=1)
if(j==1&&i!=1)
if(cmmdc(i,j)==1) s++;
fout<<s;
return 0;
}