Cod sursa(job #106533)

Utilizator SycronVene Tian Sycron Data 18 noiembrie 2007 18:40:05
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.37 kb
#include<fstream.h>
#include<iostream.h>
long main()
{
 long a,i,k,a2,k2,nr=0,r;
 ifstream g("fractii.in");
 g>>a;
 g.close();
 for(i=1;i<=a;i++)
    {
	       for(k=1;k<=a;k++)
		{
		 a2=i;k2=k;

		 do
		  {
		   r=a2%k2;
		   a2=k2;
		   k2=r;
		  }while (r);
		if (a2==1) nr++;
		}
    }
 ofstream f("fractii.out");
 f<<nr;
 f.close();
 return 0;
}