Cod sursa(job #928620)

Utilizator teoceltareconstantin teodor teoceltare Data 26 martie 2013 16:15:40
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.44 kb
#include<fstream>
using namespace std;
int main(){
int a1,a2,n,tot,b1,b2,r;
ifstream f1("fractii.in");
ofstream f2("fractii.out");
while(f1){
    f1>>n;
    tot=0;
    for(a1=1;a1<=n;a1++)
    for(a2=1;a2<=n;a2++){
        b1=a1;
        b2=a2;
        r=1;
        while(r){
            r=b1%b2;
            b1=b2;
            b2=r;
        }
        if(b1==1){
            tot++;
        }
    }
    f2<<tot<<'\n';
}
}