Cod sursa(job #154725)

Utilizator monica_ellyboicu monica monica_elly Data 11 martie 2008 13:35:23
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
#include <fstream.h>
int cmmdc(int a,int b)
{int r;
while (b!=0)
 {r=a%b;
  a=b;
  b=r;}
if (a==1) return 1;
return 0;
 }
 void main()
{int n,p,q,m;
fstream f1("fractii.in",ios::in);
fstream f2("fractii.out",ios::out);
f1>>n;
m=0;
for (p=1;p<=n;p++)
 for (q=1;q<=n;q++)
  if (cmmdc(p,q)==1) m=m+1;
f2<<m;
}