Cod sursa(job #126692)

Utilizator claudiu725Bruda Claudiu-Marcel claudiu725 Data 22 ianuarie 2008 18:06:09
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include <fstream.h>
#include <iostream.h>
int main()
{
    ifstream fin("fractii.in");
    ofstream fout("fractii.out");
    int i,j,n,ct=0,a,b,r;
    fin>>n;
    for (i=n;i>=1;i--)
    { for (j=1;j<=i;j++)
      {	a=i;b=j;
	while (b!=0)
	{
	  r=a%b;a=b;b=r;
	}
	if (a==1) ct=ct+2;
      }
    }
    fout<<ct-1;
    return 0;
}