Cod sursa(job #1713890)

Utilizator ionutmitracheMitrache Ionut Marian ionutmitrache Data 6 iunie 2016 21:08:43
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
#include <fstream>

using namespace std;
int cmmdc(long int p,long int q){while(p!=q){if(p>q) p=p-q; else q=q-p;}if(p==1)return 1;}
int main()
{long int p,q,n,l=0;
ifstream a("fractii.in");
ofstream b("fractii.out");
a>>n;
a.close();
for(p=1;p<=n;p++){for(q=1;q<=n;q++){if(cmmdc(p,q)==1)l++;}}
b<<l;
b.close();
    return 0;
}