Cod sursa(job #5805)

Utilizator msmihaiMihai Mihai msmihai Data 15 ianuarie 2007 09:30:06
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.3 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(cmmdc(i,j)==1) s++;
fout<<s;
return 0;
}