Cod sursa(job #374859)

Utilizator RengelBotocan Bogdan Rengel Data 18 decembrie 2009 15:30:23
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
#include<fstream.h>
ifstream fin("fractii.in");
ofstream fout("fractii.out");
unsigned r,i,j,n,k,jw,iw;
int main(){
	fin>>n;
	k=0;
	for(i=1;i<=n;i++){
		iw=i;
		for(j=1;j<=n;j++){
			jw=j;
			r=iw%jw;
			while(r!=0){
				iw=jw;
				jw=r;
				r=iw%jw;
			}
			if(jw==1) k++;
		}
	}
	fout<<k;
	return 0;
	fin.close();
	fout.close();
}