Cod sursa(job #240395)

Utilizator mariusandreiMarius Lucian Andrei mariusandrei Data 7 ianuarie 2009 16:18:35
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.51 kb
#include<fstream.h>   
using namespace std;   
int main()   
{  int n,ii,i,k,ap=0,kk,r;   
   ifstream in("fractii.in");   
   ofstream out("fractii.out");   
   in>>n;   
   for(i=1;i<=n;i++)   
   { 
	   for(k=1;k<=n;k++)   
         { kk=k;ii=i;
	        r=kk%ii;
	         while(r!=0)   
              {
			   kk=ii;
			   ii=r;
			   r=kk%ii;
              }
            if(ii==1 ) ap+=1; 
          }
   }   
   out<<ap<<"\n";   
   in.close();   
   out.close();   
   return 0;   
}